Revision 1f5635a9 htools/Ganeti/HTools/Program/Hspace.hs
| b/htools/Ganeti/HTools/Program/Hspace.hs | ||
|---|---|---|
| 4 | 4 |
|
| 5 | 5 |
{-
|
| 6 | 6 |
|
| 7 |
Copyright (C) 2009, 2010, 2011 Google Inc. |
|
| 7 |
Copyright (C) 2009, 2010, 2011, 2012 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 |
| ... | ... | |
| 319 | 319 |
|
| 320 | 320 |
printTiered False spec_map _ ini_nl fin_nl sreason = do |
| 321 | 321 |
_ <- printf "Tiered allocation results:\n" |
| 322 |
mapM_ (\(ispec, cnt) -> |
|
| 323 |
printf " - %3d instances of spec %s\n" cnt |
|
| 324 |
(formatResources ispec specData)) spec_map |
|
| 322 |
if null spec_map |
|
| 323 |
then putStrLn " - no instances allocated" |
|
| 324 |
else mapM_ (\(ispec, cnt) -> |
|
| 325 |
printf " - %3d instances of spec %s\n" cnt |
|
| 326 |
(formatResources ispec specData)) spec_map |
|
| 325 | 327 |
printFRScores ini_nl fin_nl sreason |
| 326 | 328 |
|
| 327 | 329 |
-- | Displays the initial/final cluster scores. |
Also available in: Unified diff