Revision c14ba680 src/Ganeti/Types.hs
| b/src/Ganeti/Types.hs | ||
|---|---|---|
| 425 | 425 |
instance THH.PyValue Hypervisor where |
| 426 | 426 |
showValue = show . hypervisorToRaw |
| 427 | 427 |
|
| 428 |
instance HasStringRepr Hypervisor where |
|
| 429 |
fromStringRepr = hypervisorFromRaw |
|
| 430 |
toStringRepr = hypervisorToRaw |
|
| 431 |
|
|
| 428 | 432 |
-- | Oob command type. |
| 429 | 433 |
$(THH.declareLADT ''String "OobCommand" |
| 430 | 434 |
[ ("OobHealth", "health")
|
Also available in: Unified diff