Revision 661c765b
| b/src/Ganeti/OpCodes.hs | ||
|---|---|---|
| 87 | 87 |
-- using the declareSADT |
| 88 | 88 |
instance PyValue ExportMode where |
| 89 | 89 |
showValue ExportModeLocal = show C.exportModeLocal |
| 90 |
showValue ExportModeRemove = show C.exportModeLocal
|
|
| 90 |
showValue ExportModeRemote = show C.exportModeLocal
|
|
| 91 | 91 |
|
| 92 | 92 |
instance PyValue CVErrorCode where |
| 93 | 93 |
showValue = cVErrorCodeToRaw |
| b/src/Ganeti/Types.hs | ||
|---|---|---|
| 514 | 514 |
-- | Export modes. |
| 515 | 515 |
$(THH.declareLADT ''String "ExportMode" |
| 516 | 516 |
[ ("ExportModeLocal", "local")
|
| 517 |
, ("ExportModeRemove", "remote")
|
|
| 517 |
, ("ExportModeRemote", "remote")
|
|
| 518 | 518 |
]) |
| 519 | 519 |
$(THH.makeJSONInstance ''ExportMode) |
| 520 | 520 |
|
Also available in: Unified diff