This field allows one to set the filename of the script the data collector should run to get information about node health.
Signed-off-by: BSRK Aditya <[email protected]> --- 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
