, FilledBeParams(..)
, fillBeParams
, allBeParamFields
- , Hypervisor(..)
, AdminState(..)
, adminStateFromRaw
, Instance(..)
])
$(makeJSONInstance ''DiskType)
--- | The file driver type.
-$(declareSADT "FileDriver"
- [ ("FileLoop", 'C.fdLoop)
- , ("FileBlktap", 'C.fdBlktap)
- ])
-$(makeJSONInstance ''FileDriver)
-
-- | The persistent block driver type. Currently only one type is allowed.
$(declareSADT "BlockDriver"
[ ("BlockDrvManual", 'C.blockdevDriverManual)
, defaultField [| DiskRdWr |] $ simpleField "mode" [t| DiskMode |]
])
--- * Hypervisor definitions
-
--- | This may be due to change when we add hypervisor parameters.
-$(declareSADT "Hypervisor"
- [ ( "Kvm", 'C.htKvm )
- , ( "XenPvm", 'C.htXenPvm )
- , ( "Chroot", 'C.htChroot )
- , ( "XenHvm", 'C.htXenHvm )
- , ( "Lxc", 'C.htLxc )
- , ( "Fake", 'C.htFake )
- ])
-$(makeJSONInstance ''Hypervisor)
-
-- * Instance definitions
$(declareSADT "AdminState"