Revision 7dd14211 htools/Ganeti/HTools/Program/Hspace.hs

b/htools/Ganeti/HTools/Program/Hspace.hs
424 424 

  		





  425
  425
  
    
  -- utility functions


  		





  426
  426
  
    
  let iofspec spx = Instance.create "new" (rspecMem spx) (rspecDsk spx)


  		





  427
  
  
    
                    (rspecCpu spx) "running" [] True (-1) (-1) disk_template


  		





  
  427
  
    
                    (rspecCpu spx) Running [] True (-1) (-1) disk_template


  		





  428
  428
  
    

  		





  429
  429
  
    
  allocnodes <- exitIfBad $ Cluster.genAllocNodes gl nl req_nodes True


  		





  430
  430
  
    

  		












Also available in:
  Unified diff