Revision fc42a408 htools/Ganeti/HTools/Types.hs

b/htools/Ganeti/HTools/Types.hs
197 197 
  [ THH.renameField "StdSpec" $ THH.simpleField "std" [t| ISpec |]
198 198 
  , THH.renameField "MinSpec" $ THH.simpleField "min" [t| ISpec |]
199 199 
  , THH.renameField "MaxSpec" $ THH.simpleField "max" [t| ISpec |]
200 
  , THH.renameField "DiskTemplates" $
201 
      THH.simpleField "disk_templates" [t| [DiskTemplate] |]
200 202 
  ])
201 203 

  		





  202
  204
  
    
-- | Converts an ISpec type to a RSpec one.


  		





  ......




  211
  213
  
    
defIPolicy = IPolicy { iPolicyStdSpec = defStdISpec


  		





  212
  214
  
    
                     , iPolicyMinSpec = defMinISpec


  		





  213
  215
  
    
                     , iPolicyMaxSpec = defMaxISpec


  		





  
  216
  
    
                     -- hardcoding here since Constants.hs exports the


  		





  
  217
  
    
                     -- string values, not the actual type; and in


  		





  
  218
  
    
                     -- htools, we are mostly looking at DRBD


  		





  
  219
  
    
                     , iPolicyDiskTemplates = [DTDrbd8, DTPlain]


  		





  214
  220
  
    
                     }


  		





  215
  221
  
    

  		





  216
  222
  
    
-- | The dynamic resource specs of a machine (i.e. load or load


  		












Also available in:
  Unified diff