Revision c4f65a0e
| b/htools/Ganeti/Objects.hs | ||
|---|---|---|
| 42 | 42 |
, PartialBEParams(..) |
| 43 | 43 |
, FilledBEParams(..) |
| 44 | 44 |
, fillBEParams |
| 45 |
, Hypervisor(..) |
|
| 46 |
, AdminState(..) |
|
| 47 |
, adminStateFromRaw |
|
| 45 | 48 |
, Instance(..) |
| 46 | 49 |
, toDictInstance |
| 47 | 50 |
, PartialNDParams(..) |
| ... | ... | |
| 225 | 228 |
, defaultField [| DiskRdWr |] $ simpleField "mode" [t| DiskMode |] |
| 226 | 229 |
]) |
| 227 | 230 |
|
| 231 |
-- * Hypervisor definitions |
|
| 232 |
|
|
| 233 |
-- | This may be due to change when we add hypervisor parameters. |
|
| 234 |
$(declareSADT "Hypervisor" |
|
| 235 |
[ ( "Kvm", 'C.htKvm ) |
|
| 236 |
, ( "XenPvm", 'C.htXenPvm ) |
|
| 237 |
, ( "Chroot", 'C.htChroot ) |
|
| 238 |
, ( "XenHvm", 'C.htXenHvm ) |
|
| 239 |
, ( "Lxc", 'C.htLxc ) |
|
| 240 |
, ( "Fake", 'C.htFake ) |
|
| 241 |
]) |
|
| 242 |
$(makeJSONInstance ''Hypervisor) |
|
| 243 |
|
|
| 228 | 244 |
-- * Instance definitions |
| 229 | 245 |
|
| 230 | 246 |
-- | Instance disk template type. **Copied from HTools/Types.hs** |
Also available in: Unified diff