'allNodes' actually returns a list of instance indices corresponding to the nodes.
Signed-off-by: Aaron Karper <[email protected]> --- src/Ganeti/HTools/Cluster.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Ganeti/HTools/Cluster.hs b/src/Ganeti/HTools/Cluster.hs index 0dcc9b7..368c43f 100644 --- a/src/Ganeti/HTools/Cluster.hs +++ b/src/Ganeti/HTools/Cluster.hs @@ -231,10 +231,10 @@ computeBadItems :: Node.List -> Instance.List -> ([Node.Node], [Instance.Instance]) computeBadItems nl il = let bad_nodes = verifyN1 $ getOnline nl - allNodes n = Node.sList n ++ Node.pList n + allInstances n = Node.sList n ++ Node.pList n bad_instances = map (`Container.find` il) . sort . nub $ - concatMap allNodes bad_nodes + concatMap allInstances bad_nodes in (bad_nodes, bad_instances) -- 2.2.0.rc0.207.ga3a616c
