code.grnet.gr Git - ganeti-local/blob - htools/Ganeti/Jobs.hs

   1 {-| Implementation of the job information.
   2
   3 -}
   4
   5 {-
   6
   7 Copyright (C) 2009, 2010, 2011 Google Inc.
   8
   9 This program is free software; you can redistribute it and/or modify
  10 it under the terms of the GNU General Public License as published by
  11 the Free Software Foundation; either version 2 of the License, or
  12 (at your option) any later version.
  13
  14 This program is distributed in the hope that it will be useful, but
  15 WITHOUT ANY WARRANTY; without even the implied warranty of
  16 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  17 General Public License for more details.
  18
  19 You should have received a copy of the GNU General Public License
  20 along with this program; if not, write to the Free Software
  21 Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
  22 02110-1301, USA.
  23
  24 -}
  25
  26 module Ganeti.Jobs
  27     ( OpStatus(..)
  28     , JobStatus(..)
  29     ) where
  30
  31 import Text.JSON (readJSON, showJSON, JSON)
  32 import qualified Text.JSON as J
  33
  34 import qualified Ganeti.Constants as C
  35
  36 data OpStatus = OP_STATUS_QUEUED
  37               | OP_STATUS_WAITLOCK
  38               | OP_STATUS_CANCELING
  39               | OP_STATUS_RUNNING
  40               | OP_STATUS_CANCELED
  41               | OP_STATUS_SUCCESS
  42               | OP_STATUS_ERROR
  43                 deriving (Eq, Enum, Bounded, Show, Read)
  44
  45 instance JSON OpStatus where
  46     showJSON os = showJSON w
  47       where w = case os of
  48               OP_STATUS_QUEUED -> C.jobStatusQueued
  49               OP_STATUS_WAITLOCK -> C.jobStatusWaitlock
  50               OP_STATUS_CANCELING -> C.jobStatusCanceling
  51               OP_STATUS_RUNNING -> C.jobStatusRunning
  52               OP_STATUS_CANCELED -> C.jobStatusCanceled
  53               OP_STATUS_SUCCESS -> C.jobStatusSuccess
  54               OP_STATUS_ERROR -> C.jobStatusError
  55     readJSON s = case readJSON s of
  56       J.Ok v | v == C.jobStatusQueued -> J.Ok OP_STATUS_QUEUED
  57              | v == C.jobStatusWaitlock -> J.Ok OP_STATUS_WAITLOCK
  58              | v == C.jobStatusCanceling -> J.Ok OP_STATUS_CANCELING
  59              | v == C.jobStatusRunning -> J.Ok OP_STATUS_RUNNING
  60              | v == C.jobStatusCanceled -> J.Ok OP_STATUS_CANCELED
  61              | v == C.jobStatusSuccess -> J.Ok OP_STATUS_SUCCESS
  62              | v == C.jobStatusError -> J.Ok OP_STATUS_ERROR
  63              | otherwise -> J.Error ("Unknown opcode status " ++ v)
  64       _ -> J.Error ("Cannot parse opcode status " ++ show s)
  65
  66 -- | The JobStatus data type. Note that this is ordered especially
  67 -- such that greater\/lesser comparison on values of this type makes
  68 -- sense.
  69 data JobStatus = JOB_STATUS_QUEUED
  70                | JOB_STATUS_WAITLOCK
  71                | JOB_STATUS_RUNNING
  72                | JOB_STATUS_SUCCESS
  73                | JOB_STATUS_CANCELING
  74                | JOB_STATUS_CANCELED
  75                | JOB_STATUS_ERROR
  76                  deriving (Eq, Enum, Ord, Bounded, Show, Read)
  77
  78 instance JSON JobStatus where
  79     showJSON js = showJSON w
  80         where w = case js of
  81                 JOB_STATUS_QUEUED -> "queued"
  82                 JOB_STATUS_WAITLOCK -> "waiting"
  83                 JOB_STATUS_CANCELING -> "canceling"
  84                 JOB_STATUS_RUNNING -> "running"
  85                 JOB_STATUS_CANCELED -> "canceled"
  86                 JOB_STATUS_SUCCESS -> "success"
  87                 JOB_STATUS_ERROR -> "error"
  88     readJSON s = case readJSON s of
  89       J.Ok "queued" -> J.Ok JOB_STATUS_QUEUED
  90       J.Ok "waiting" -> J.Ok JOB_STATUS_WAITLOCK
  91       J.Ok "canceling" -> J.Ok JOB_STATUS_CANCELING
  92       J.Ok "running" -> J.Ok JOB_STATUS_RUNNING
  93       J.Ok "success" -> J.Ok JOB_STATUS_SUCCESS
  94       J.Ok "canceled" -> J.Ok JOB_STATUS_CANCELED
  95       J.Ok "error" -> J.Ok JOB_STATUS_ERROR
  96       _ -> J.Error ("Unknown job status " ++ show s)