Revision eabbda6f src/Ganeti/OpParams.hs

b/src/Ganeti/OpParams.hs
265 265 
import Ganeti.BasicTypes
266 266 
import qualified Ganeti.Constants as C
267 267 
import Ganeti.THH
268 
import Ganeti.Utils
268 269 
import Ganeti.JSON
269 270 
import Ganeti.Types
270 271 
import qualified Ganeti.Query.Language as Qlang
......
342 343 
  , optionalField $ simpleField C.inicBridge [t| NonEmptyString |]
343 344 
  ])
344 345 

  		





  345
  
  
    
-- | Disk modification definition. FIXME: disksize should be VTYPE_UNIT.


  		





  
  346
  
    
-- | Disk modification definition.


  		





  346
  347
  
    
$(buildObject "IDiskParams" "idisk"


  		





  347
  
  
    
  [ optionalField $ simpleField C.idiskSize   [t| Int            |]


  		





  
  348
  
    
  [ specialNumericalField 'parseUnitAssumeBinary . optionalField


  		





  
  349
  
    
      $ simpleField C.idiskSize               [t| Int            |]


  		





  348
  350
  
    
  , optionalField $ simpleField C.idiskMode   [t| DiskAccess     |]


  		





  349
  351
  
    
  , optionalField $ simpleField C.idiskAdopt  [t| NonEmptyString |]


  		





  350
  352
  
    
  , optionalField $ simpleField C.idiskVg     [t| NonEmptyString |]


  		












Also available in:
  Unified diff