Revision 9158a1dd src/Ganeti/Types.hs
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