Revision 2c9336a4 htools/Ganeti/HTools/Program/Hspace.hs

b/htools/Ganeti/HTools/Program/Hspace.hs
295 295 
printISpec True ispec spec disk_template = do
296 296 
  printKeys $ map (\(a, fn) -> (prefix ++ "_" ++ a, fn ispec)) specData
297 297 
  printKeys [ (prefix ++ "_RQN", printf "%d" req_nodes) ]
298 
  printKeys [ (prefix ++ "_DISK_TEMPLATE", dtToString disk_template) ]
298 
  printKeys [ (prefix ++ "_DISK_TEMPLATE",
299 
               diskTemplateToString disk_template) ]
299 300 
      where req_nodes = Instance.requiredNodes disk_template
300 301 
            prefix = specPrefix spec
301 302 

  		





  ......




  303
  304
  
    
  printf "%s instance spec is:\n  %s, using disk\


  		





  304
  305
  
    
         \ template '%s'.\n"


  		





  305
  306
  
    
         (specDescription spec)


  		





  306
  
  
    
         (formatResources ispec specData) (dtToString disk_template)


  		





  
  307
  
    
         (formatResources ispec specData) (diskTemplateToString disk_template)


  		





  307
  308
  
    

  		





  308
  309
  
    
-- | Prints the tiered results.


  		





  309
  310
  
    
printTiered :: Bool -> [(RSpec, Int)] -> Double


  		












Also available in:
  Unified diff