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