Fix comment line position in DRBD data collector

[ganeti-local] / src / Ganeti / OpParams.hs

diff --git a/src/Ganeti/OpParams.hs b/src/Ganeti/OpParams.hs
index 8e91b8f..7e91ae4 100644 (file)
--- a/src/Ganeti/OpParams.hs
+++ b/src/Ganeti/OpParams.hs
@@ -236,6 +236,8 @@ module Ganeti.OpParams
   , pOpPriority
   , pDependencies
   , pComment
+  , pReason
+  , pEnabledStorageTypes
   , dOldQuery
   , dOldQueryNoLocking
   ) where
@@ -757,6 +759,12 @@ pEnabledHypervisors =
   optionalField $
   simpleField "enabled_hypervisors" [t| NonEmpty Hypervisor |]
 
+-- | List of enabled storage methods.
+pEnabledStorageTypes :: Field
+pEnabledStorageTypes =
+  optionalField $
+  simpleField "enabled_storage_types" [t| NonEmpty StorageType |]
+
 -- | Selected hypervisor for an instance.
 pHypervisor :: Field
 pHypervisor =
@@ -1435,6 +1443,10 @@ pDependencies =
 pComment :: Field
 pComment = optionalNullSerField $ stringField "comment"
 
+-- | The description of the state change reason.
+pReason :: Field
+pReason = simpleField "reason" [t| (InstReasonSrc, NonEmptyString) |]
+
 -- * Entire opcode parameter list
 
 -- | Old-style query opcode, with locking.