Revision 22381768 htools/Ganeti/Types.hs

b/htools/Ganeti/Types.hs
54 54
  , DdmSimple(..)
55 55
  , CVErrorCode(..)
56 56
  , cVErrorCodeToRaw
57
  , Hypervisor(..)
57 58
  ) where
58 59

  
59 60
import qualified Text.JSON as JSON
......
206 207
     , ("DdmSimpleRemove", 'C.ddmRemove)
207 208
     ])
208 209
$(THH.makeJSONInstance ''DdmSimple)
210

  
211
-- | Hypervisor type definitions.
212
$(THH.declareSADT "Hypervisor"
213
  [ ( "Kvm",    'C.htKvm )
214
  , ( "XenPvm", 'C.htXenPvm )
215
  , ( "Chroot", 'C.htChroot )
216
  , ( "XenHvm", 'C.htXenHvm )
217
  , ( "Lxc",    'C.htLxc )
218
  , ( "Fake",   'C.htFake )
219
  ])
220
$(THH.makeJSONInstance ''Hypervisor)

Also available in: Unified diff