htools: create InstanceStatus ADT

Signed-off-by: Agata Murawska <agatamurawska@google.com>
Reviewed-by: Iustin Pop <iustin@google.com>

diff --git a/htools/Ganeti/HTools/Types.hs b/htools/Ganeti/HTools/Types.hs
index a7d7130..a3719d8 100644 (file)
--- a/htools/Ganeti/HTools/Types.hs
+++ b/htools/Ganeti/HTools/Types.hs
@@ -36,6 +36,9 @@ module Ganeti.HTools.Types
     , AllocPolicy(..)
     , allocPolicyFromRaw
     , allocPolicyToRaw
+    , InstanceStatus(..)
+    , instanceStatusFromRaw
+    , instanceStatusToRaw
     , RSpec(..)
     , DynUtil(..)
     , zeroUtil
@@ -110,6 +113,19 @@ $(THH.declareSADT "AllocPolicy"
          ])
 $(THH.makeJSONInstance ''AllocPolicy)
 
+-- | The Instance real state type.
+$(THH.declareSADT "InstanceStatus"
+         [ ("AdminDown", 'C.inststAdmindown)
+         , ("AdminOffline", 'C.inststAdminoffline)
+         , ("ErrorDown", 'C.inststErrordown)
+         , ("ErrorUp", 'C.inststErrorup)
+         , ("NodeDown", 'C.inststNodedown)
+         , ("NodeOffline", 'C.inststNodeoffline)
+         , ("Running", 'C.inststRunning)
+         , ("WrongNode", 'C.inststWrongnode)
+         ])
+$(THH.makeJSONInstance ''InstanceStatus)
+
 -- | The resource spec type.
 data RSpec = RSpec
     { rspecCpu  :: Int  -- ^ Requested VCPUs