Revision d6c76bd5

b/Ganeti/HTools/Cluster.hs
624 624 
tryAlloc nl _ inst 2 =
625 625 
    let all_nodes = getOnline nl
626 626 
        all_pairs = liftM2 (,) all_nodes all_nodes
627 
        ok_pairs = filter (\(x, y) -> Node.idx x /= Node.idx y) all_pairs
627 
        ok_pairs = filter (\(x, y) -> Node.idx x /= Node.idx y &&
628 
                                      Node.group x == Node.group y) all_pairs
628 629 
        sols = foldl' (\cstate (p, s) ->
629 630 
                           concatAllocs cstate $ allocateOnPair nl inst p s
630 631 
                      ) emptySolution ok_pairs

Also available in: Unified diff