Revision 22381768 htools/Ganeti/Objects.hs

b/htools/Ganeti/Objects.hs
50 50
  , FilledBeParams(..)
51 51
  , fillBeParams
52 52
  , allBeParamFields
53
  , Hypervisor(..)
54 53
  , AdminState(..)
55 54
  , adminStateFromRaw
56 55
  , Instance(..)
......
329 328
  , defaultField [| DiskRdWr |] $ simpleField "mode" [t| DiskMode |]
330 329
  ])
331 330

  
332
-- * Hypervisor definitions
333

  
334
-- | This may be due to change when we add hypervisor parameters.
335
$(declareSADT "Hypervisor"
336
  [ ( "Kvm",    'C.htKvm )
337
  , ( "XenPvm", 'C.htXenPvm )
338
  , ( "Chroot", 'C.htChroot )
339
  , ( "XenHvm", 'C.htXenHvm )
340
  , ( "Lxc",    'C.htLxc )
341
  , ( "Fake",   'C.htFake )
342
  ])
343
$(makeJSONInstance ''Hypervisor)
344

  
345 331
-- * Instance definitions
346 332

  
347 333
$(declareSADT "AdminState"

Also available in: Unified diff