Revision bfa99f7a
| b/src/Ganeti/HTools/Program/Hbal.hs | ||
|---|---|---|
| 319 | 319 |
putStrLn $ "Selected node group: " ++ gname |
| 320 | 320 |
|
| 321 | 321 |
let (bad_nodes, bad_instances) = Cluster.computeBadItems nl il |
| 322 |
unless (verbose == 0) $ printf
|
|
| 322 |
unless (verbose < 1) $ printf
|
|
| 323 | 323 |
"Initial check done: %d bad nodes, %d bad instances.\n" |
| 324 | 324 |
(length bad_nodes) (length bad_instances) |
| 325 | 325 |
|
| ... | ... | |
| 399 | 399 |
|
| 400 | 400 |
putStr sol_msg |
| 401 | 401 |
|
| 402 |
unless (verbose == 0) $
|
|
| 402 |
unless (verbose < 1) $
|
|
| 403 | 403 |
printf "Solution length=%d\n" (length ord_plc) |
| 404 | 404 |
|
| 405 | 405 |
let cmd_jobs = Cluster.splitJobs cmd_strs |
| b/src/Ganeti/HTools/Program/Hcheck.hs | ||
|---|---|---|
| 4 | 4 |
|
| 5 | 5 |
{-
|
| 6 | 6 |
|
| 7 |
Copyright (C) 2012 Google Inc. |
|
| 7 |
Copyright (C) 2012, 2013 Google Inc.
|
|
| 8 | 8 |
|
| 9 | 9 |
This program is free software; you can redistribute it and/or modify |
| 10 | 10 |
it under the terms of the GNU General Public License as published by |
| ... | ... | |
| 191 | 191 |
printStats verbose False level phase values = do |
| 192 | 192 |
let prefix = phaseLevelDescr phase level |
| 193 | 193 |
descr = descrData level |
| 194 |
unless (verbose == 0) $ do
|
|
| 194 |
unless (verbose < 1) $ do
|
|
| 195 | 195 |
putStrLn "" |
| 196 | 196 |
putStr prefix |
| 197 | 197 |
mapM_ (uncurry (printf " %s: %s\n")) (zip descr values) |
| ... | ... | |
| 311 | 311 |
clusterstats = map sum . transpose . map snd $ groupsstats |
| 312 | 312 |
needrebalance = clusterNeedsRebalance clusterstats |
| 313 | 313 |
|
| 314 |
unless (verbose == 0 || machineread) .
|
|
| 314 |
unless (verbose < 1 || machineread) .
|
|
| 315 | 315 |
putStrLn $ if nosimulation |
| 316 | 316 |
then "Running in no-simulation mode." |
| 317 | 317 |
else if needrebalance |
Also available in: Unified diff