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