Revision 9b9e088c src/Ganeti/Types.hs
| b/src/Ganeti/Types.hs | ||
|---|---|---|
| 141 | 141 |
, adminStateToRaw |
| 142 | 142 |
, StorageField(..) |
| 143 | 143 |
, storageFieldToRaw |
| 144 |
, DiskAccessMode(..) |
|
| 145 |
, diskAccessModeToRaw |
|
| 144 | 146 |
) where |
| 145 | 147 |
|
| 146 | 148 |
import Control.Monad (liftM) |
| ... | ... | |
| 282 | 284 |
]) |
| 283 | 285 |
$(THH.makeJSONInstance ''DiskTemplate) |
| 284 | 286 |
|
| 287 |
instance THH.PyValue DiskTemplate where |
|
| 288 |
showValue = show . diskTemplateToRaw |
|
| 289 |
|
|
| 285 | 290 |
instance HasStringRepr DiskTemplate where |
| 286 | 291 |
fromStringRepr = diskTemplateFromRaw |
| 287 | 292 |
toStringRepr = diskTemplateToRaw |
| ... | ... | |
| 406 | 411 |
]) |
| 407 | 412 |
$(THH.makeJSONInstance ''Hypervisor) |
| 408 | 413 |
|
| 414 |
instance THH.PyValue Hypervisor where |
|
| 415 |
showValue = show . hypervisorToRaw |
|
| 416 |
|
|
| 409 | 417 |
-- | Oob command type. |
| 410 | 418 |
$(THH.declareLADT ''String "OobCommand" |
| 411 | 419 |
[ ("OobHealth", "health")
|
| ... | ... | |
| 763 | 771 |
, ( "SFSize", "size") |
| 764 | 772 |
]) |
| 765 | 773 |
$(THH.makeJSONInstance ''StorageField) |
| 774 |
|
|
| 775 |
-- * Disk access protocol |
|
| 776 |
|
|
| 777 |
$(THH.declareLADT ''String "DiskAccessMode" |
|
| 778 |
[ ( "DiskUserspace", "userspace") |
|
| 779 |
, ( "DiskKernelspace", "kernelspace") |
|
| 780 |
]) |
|
| 781 |
$(THH.makeJSONInstance ''DiskAccessMode) |
|
Also available in: Unified diff