Revision 9158a1dd
| b/src/Ganeti/HsConstants.hs | ||
|---|---|---|
| 3033 | 3033 |
inststRunning :: String |
| 3034 | 3034 |
inststRunning = Types.instanceStatusToRaw Running |
| 3035 | 3035 |
|
| 3036 |
inststUserdown :: String |
|
| 3037 |
inststUserdown = Types.instanceStatusToRaw UserDown |
|
| 3038 |
|
|
| 3036 | 3039 |
inststWrongnode :: String |
| 3037 | 3040 |
inststWrongnode = Types.instanceStatusToRaw WrongNode |
| 3038 | 3041 |
|
| b/src/Ganeti/Types.hs | ||
|---|---|---|
| 330 | 330 |
]) |
| 331 | 331 |
$(THH.makeJSONInstance ''AllocPolicy) |
| 332 | 332 |
|
| 333 |
-- | The Instance real state type. FIXME: this could be improved to |
|
| 334 |
-- just wrap a /NormalState AdminStatus | ErrorState ErrorCondition/. |
|
| 333 |
-- | The Instance real state type. |
|
| 335 | 334 |
$(THH.declareLADT ''String "InstanceStatus" |
| 336 | 335 |
[ ("StatusDown", "ADMIN_down")
|
| 337 | 336 |
, ("StatusOffline", "ADMIN_offline")
|
| ... | ... | |
| 340 | 339 |
, ("NodeDown", "ERROR_nodedown")
|
| 341 | 340 |
, ("NodeOffline", "ERROR_nodeoffline")
|
| 342 | 341 |
, ("Running", "running")
|
| 342 |
, ("UserDown", "USER_down")
|
|
| 343 | 343 |
, ("WrongNode", "ERROR_wrongnode")
|
| 344 | 344 |
]) |
| 345 | 345 |
$(THH.makeJSONInstance ''InstanceStatus) |
Also available in: Unified diff