Revision 4475d529 src/Ganeti/Types.hs
| b/src/Ganeti/Types.hs | ||
|---|---|---|
| 553 | 553 |
-- such that greater\/lesser comparison on values of this type makes |
| 554 | 554 |
-- sense. |
| 555 | 555 |
$(THH.declareLADT ''String "JobStatus" |
| 556 |
[ ("JOB_STATUS_QUEUED", "queued")
|
|
| 557 |
, ("JOB_STATUS_WAITING", "waiting")
|
|
| 558 |
, ("JOB_STATUS_CANCELING", "canceling")
|
|
| 559 |
, ("JOB_STATUS_RUNNING", "running")
|
|
| 560 |
, ("JOB_STATUS_CANCELED", "canceled")
|
|
| 561 |
, ("JOB_STATUS_SUCCESS", "success")
|
|
| 562 |
, ("JOB_STATUS_ERROR", "error")
|
|
| 563 |
])
|
|
| 556 |
[ ("JOB_STATUS_QUEUED", "queued")
|
|
| 557 |
, ("JOB_STATUS_WAITING", "waiting")
|
|
| 558 |
, ("JOB_STATUS_CANCELING", "canceling")
|
|
| 559 |
, ("JOB_STATUS_RUNNING", "running")
|
|
| 560 |
, ("JOB_STATUS_CANCELED", "canceled")
|
|
| 561 |
, ("JOB_STATUS_SUCCESS", "success")
|
|
| 562 |
, ("JOB_STATUS_ERROR", "error")
|
|
| 563 |
]) |
|
| 564 | 564 |
$(THH.makeJSONInstance ''JobStatus) |
| 565 | 565 |
|
| 566 | 566 |
-- | Finalized job status. |
Also available in: Unified diff