Revision bfa99f7a src/Ganeti/HTools/Program/Hcheck.hs
| 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