Revision a3d1dc0a htools/Ganeti/HTools/Cluster.hs

b/htools/Ganeti/HTools/Cluster.hs
630 630 
                           in filter (any (`elem` bad_nodes) .
631 631 
                                          Instance.allNodes) all_inst
632 632 
                      else all_inst
633 
        reloc_inst = filter Instance.movable all_inst'
633 
        reloc_inst = filter (\i -> Instance.movable i &&
634 
                                   Instance.autoBalance i) all_inst'
634 635 
        node_idx = map Node.idx online_nodes
635 636 
        fin_tbl = checkMove node_idx disk_moves inst_moves ini_tbl reloc_inst
636 637 
        (Table _ _ fin_cv _) = fin_tbl

Also available in: Unified diff