Synnefo » snf-ganeti » ganeti-local

-- | Our ADT for the OpCode status at runtime (while in a job).

data OpStatus = OP_STATUS_QUEUED

              | OP_STATUS_CANCELING

              | OP_STATUS_RUNNING

              | OP_STATUS_CANCELED

    showJSON os = showJSON w

      where w = case os of

              OP_STATUS_QUEUED -> C.jobStatusQueued

              OP_STATUS_CANCELING -> C.jobStatusCanceling

              OP_STATUS_RUNNING -> C.jobStatusRunning

              OP_STATUS_CANCELED -> C.jobStatusCanceled

              OP_STATUS_ERROR -> C.jobStatusError

    readJSON s = case readJSON s of

      J.Ok v | v == C.jobStatusQueued -> J.Ok OP_STATUS_QUEUED

             | v == C.jobStatusCanceling -> J.Ok OP_STATUS_CANCELING

             | v == C.jobStatusRunning -> J.Ok OP_STATUS_RUNNING

             | v == C.jobStatusCanceled -> J.Ok OP_STATUS_CANCELED

-- such that greater\/lesser comparison on values of this type makes

-- sense.

data JobStatus = JOB_STATUS_QUEUED

               | JOB_STATUS_RUNNING

               | JOB_STATUS_SUCCESS

               | JOB_STATUS_CANCELING

    showJSON js = showJSON w

        where w = case js of

                JOB_STATUS_QUEUED -> "queued"

                JOB_STATUS_CANCELING -> "canceling"

                JOB_STATUS_RUNNING -> "running"

                JOB_STATUS_CANCELED -> "canceled"

                JOB_STATUS_ERROR -> "error"

    readJSON s = case readJSON s of

      J.Ok "queued" -> J.Ok JOB_STATUS_QUEUED

      J.Ok "canceling" -> J.Ok JOB_STATUS_CANCELING

      J.Ok "running" -> J.Ok JOB_STATUS_RUNNING

      J.Ok "success" -> J.Ok JOB_STATUS_SUCCESS