X-Git-Url: https://code.grnet.gr/git/ganeti-local/blobdiff_plain/fe502d25012de5eca546f359ce8f1dabd465ba49..08f7d24d606f498d0233a6ec306458097ad6ac34:/src/Ganeti/Types.hs

diff --git a/src/Ganeti/Types.hs b/src/Ganeti/Types.hs
index 0f3a8e1..1753ce6 100644
--- a/src/Ganeti/Types.hs
+++ b/src/Ganeti/Types.hs
@@ -92,6 +92,7 @@ module Ganeti.Types
   , opStatusToRaw
   , opStatusFromRaw
   , ELogType(..)
+  , InstReasonSrc(..)
   ) where
 
 import Control.Monad (liftM)
@@ -481,3 +482,12 @@ $(THH.declareSADT "ELogType"
   , ("ELogJqueueTest",   'C.elogJqueueTest)
   ])
 $(THH.makeJSONInstance ''ELogType)
+
+-- | Type for the source of the state change of instances.
+$(THH.declareSADT "InstReasonSrc"
+  [ ("IRSCli", 'C.instanceReasonSourceCli)
+  , ("IRSRapi",  'C.instanceReasonSourceRapi)
+  ])
+$(THH.makeJSONInstance ''InstReasonSrc)
+
+