Revision da5f09ef src/Ganeti/HTools/Program/Hspace.hs

b/src/Ganeti/HTools/Program/Hspace.hs
443 443 

  		





  444
  444
  
    
  -- Run the tiered allocation


  		





  445
  445
  
    

  		





  446
  
  
    
  let tspec = fromMaybe (rspecFromISpec (iPolicyMaxSpec ipol))


  		





  
  446
  
    
  let minmax = iPolicyMinMaxISpecs ipol


  		





  
  447
  
    
  let tspec = fromMaybe (rspecFromISpec (minMaxISpecsMaxSpec minmax))


  		





  447
  448
  
    
              (optTieredSpec opts)


  		





  448
  449
  
    

  		





  449
  450
  
    
  (treason, trl_nl, _, spec_map) <-


  		












Also available in:
  Unified diff