Revision 908c2f67 src/Ganeti/HTools/Program/Hspace.hs

b/src/Ganeti/HTools/Program/Hspace.hs
394 394 
-- of the disk space to individual disks), sensible defaults are guessed (e.g.,
395 395 
-- having a single disk).
396 396 
instFromSpec :: RSpec -> DiskTemplate -> Int -> Instance.Instance
397 
instFromSpec spx =
397 
instFromSpec spx dt su =
398 398 
  Instance.create "new" (rspecMem spx) (rspecDsk spx) [rspecDsk spx]
399 
    (rspecCpu spx) Running [] True (-1) (-1)
399 
    (rspecCpu spx) Running [] True (-1) (-1) dt su []
400 400 

  		





  401
  401
  
    
combineTiered :: Maybe Int -> Cluster.AllocNodes -> Cluster.AllocResult ->


  		





  402
  402
  
    
           Instance.Instance -> Result Cluster.AllocResult


  		












Also available in:
  Unified diff