Revision 4475d529

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