[PATCH master 02/11] Add a field to OpClusterSetParams

['BSRK Aditya' via ganeti-devel]

for filename of diagnose data collector's script

Signed-off-by: BSRK Aditya <b...@google.com>
---
 src/Ganeti/OpCodes.hs          |    1 +
 src/Ganeti/OpParams.hs         |    6 ++++++
 test/hs/Test/Ganeti/OpCodes.hs |    1 +
 3 files changed, 8 insertions(+)

diff --git a/src/Ganeti/OpCodes.hs b/src/Ganeti/OpCodes.hs
index c370a91..162e2d4 100644
--- a/src/Ganeti/OpCodes.hs
+++ b/src/Ganeti/OpCodes.hs
@@ -260,6 +260,7 @@ $(genOpCode "OpCode"
      , pEnabledUserShutdown
      , pEnabledDataCollectors
      , pDataCollectorInterval
+     , pDiagnoseDataCollectorFilename
      , pMaintdRoundDelay
      , pMaintdEnableBalancing
      , pMaintdBalancingThreshold
diff --git a/src/Ganeti/OpParams.hs b/src/Ganeti/OpParams.hs
index 2b266e6..b198fe3 100644
--- a/src/Ganeti/OpParams.hs
+++ b/src/Ganeti/OpParams.hs
@@ -301,6 +301,7 @@ module Ganeti.OpParams
   , pMaintdEnableBalancing
   , pMaintdBalancingThreshold
   , pDataCollectorInterval
+  , pDiagnoseDataCollectorFilename
   , pNodeSslCerts
   , pSshKeys
   , pNodeSetup
@@ -1892,6 +1893,11 @@ pDataCollectorInterval =
   optionalField $
   simpleField C.dataCollectorsIntervalName [t| GenericContainer String Int |]
 
+pDiagnoseDataCollectorFilename :: Field
+pDiagnoseDataCollectorFilename =
+  withDoc "Sets the filename of the script diagnose data collector should run" 
$
+  optionalStringField "diagnose_data_collector_filename"
+
 pMaintdRoundDelay :: Field
 pMaintdRoundDelay =
   withDoc "Minimal delay between rounds of the maintenance daemon"
diff --git a/test/hs/Test/Ganeti/OpCodes.hs b/test/hs/Test/Ganeti/OpCodes.hs
index 62dc75d..5a96831 100644
--- a/test/hs/Test/Ganeti/OpCodes.hs
+++ b/test/hs/Test/Ganeti/OpCodes.hs
@@ -251,6 +251,7 @@ instance Arbitrary OpCodes.OpCode where
           <*> arbitrary                    -- enabled_user_shutdown
           <*> genMaybe arbitraryDataCollector   -- enabled_data_collectors
           <*> arbitraryDataCollectorInterval   -- data_collector_interval
+          <*> genMaybe genName             -- diagnose_data_collector_filename
           <*> genMaybe (fromPositive <$> arbitrary) -- maintd round interval
           <*> genMaybe arbitrary           -- enable maintd balancing
           <*> genMaybe arbitrary           -- maintd balancing threshold
-- 
1.7.10.4