Revision 7073b3a8 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