Revision 2922d2c5 htools/Ganeti/HTools/Program/Hbal.hs
b/htools/Ganeti/HTools/Program/Hbal.hs | ||
---|---|---|
373 | 373 |
checkNeedRebalance opts ini_cv |
374 | 374 |
|
375 | 375 |
if verbose > 2 |
376 |
then printf "Initial coefficients: overall %.8f, %s\n"
|
|
377 |
ini_cv (Cluster.printStats nl)::IO () |
|
376 |
then printf "Initial coefficients: overall %.8f\n%s"
|
|
377 |
ini_cv (Cluster.printStats " " nl)::IO ()
|
|
378 | 378 |
else printf "Initial score: %.8f\n" ini_cv |
379 | 379 |
|
380 | 380 |
putStrLn "Trying to minimize the CV..." |
... | ... | |
392 | 392 |
sol_msg = case () of |
393 | 393 |
_ | null fin_plc -> printf "No solution found\n" |
394 | 394 |
| verbose > 2 -> |
395 |
printf "Final coefficients: overall %.8f, %s\n"
|
|
396 |
fin_cv (Cluster.printStats fin_nl) |
|
395 |
printf "Final coefficients: overall %.8f\n%s"
|
|
396 |
fin_cv (Cluster.printStats " " fin_nl)
|
|
397 | 397 |
| otherwise -> |
398 | 398 |
printf "Cluster score improved from %.8f to %.8f\n" |
399 | 399 |
ini_cv fin_cv ::String |
Also available in: Unified diff