Revision 9bb5721c htools/Ganeti/HTools/QC.hs

b/htools/Ganeti/HTools/QC.hs
810 810 
    (not (Node.offline node) && not (Node.failN1 node) && (count > 0) &&
811 811 
     (Node.tDsk node > 0) && (Node.tMem node > 0)) ==>
812 812 
    let fn = Node.buildPeers node Container.empty
813 
        nlst = zip [1..] $ replicate count fn::[(Types.Ndx, Node.Node)]
814 
        nl = Container.fromList nlst
815 
        score = Cluster.compCV nl
813 
        nlst = replicate count fn
814 
        score = Cluster.compCVNodes nlst
816 815 
    -- we can't say == 0 here as the floating point errors accumulate;
817 816 
    -- this should be much lower than the default score in CLI.hs
818 817 
    in score <= 1e-12

Also available in: Unified diff