Revision 07abe80a htools/Ganeti/HTools/Cluster.hs

b/htools/Ganeti/HTools/Cluster.hs
1107 1107 
                      splitCluster ini_nl ini_il
1108 1108 
        (fin_nl, fin_il, esol) =
1109 1109 
            foldl' (\state@(nl, il, _) inst ->
1110 
                        let gdx = instancePriGroup nl inst in
1110 
                        let gdx = instancePriGroup nl inst
1111 
                            pdx = Instance.pNode inst in
1111 1112 
                        updateEvacSolution state (Instance.idx inst) $
1112 1113 
                        availableGroupNodes group_ndx
1113 
                          excl_ndx gdx >>=
1114 
                          (IntSet.insert pdx excl_ndx) gdx >>=
1114 1115 
                        nodeEvacInstance nl il mode inst gdx
1115 1116 
                   )
1116 1117 
            (ini_nl, ini_il, emptyEvacSolution)

Also available in: Unified diff