Commit 593fd115 authored by Klaus Aehlig's avatar Klaus Aehlig
Browse files

Extend OpGroupEvacuate by a sequential paramter



...telling it to run all the evacuation jobs sequentially.
This might be useful to avoid too much load that otherwise
might occur.
Signed-off-by: default avatarKlaus Aehlig <aehlig@google.com>
Reviewed-by: default avatarPetr Pudlak <pudlak@google.com>
parent 70000149
......@@ -4242,6 +4242,10 @@ builtinDataCollectorVersion = "B"
opcodeReason :: String
opcodeReason = "reason"
-- | The reason trail opcode parameter name
opcodeSequential :: String
opcodeSequential = "sequential"
diskstatsFile :: String
diskstatsFile = "/proc/diskstats"
......
......@@ -742,6 +742,7 @@ $(genOpCode "OpCode"
, pEarlyRelease
, pIallocator
, pTargetGroups
, pSequential
],
"group_name")
, ("OpOsDiagnose",
......
......@@ -251,6 +251,7 @@ module Ganeti.OpParams
, pDependencies
, pComment
, pReason
, pSequential
, pEnabledDiskTemplates
) where
......@@ -473,6 +474,11 @@ pReason =
withDoc "Reason trail field" $
simpleField C.opcodeReason [t| ReasonTrail |]
pSequential :: Field
pSequential =
withDoc "Sequential job execution" $
defaultFalse C.opcodeSequential
-- * Parameters
pDebugSimulateErrors :: Field
......
......@@ -317,7 +317,7 @@ instance Arbitrary OpCodes.OpCode where
OpCodes.OpGroupRename <$> genNameNE <*> genNameNE
"OP_GROUP_EVACUATE" ->
OpCodes.OpGroupEvacuate <$> genNameNE <*> arbitrary <*>
genMaybe genNameNE <*> genMaybe genNamesNE
genMaybe genNameNE <*> genMaybe genNamesNE <*> arbitrary
"OP_OS_DIAGNOSE" ->
OpCodes.OpOsDiagnose <$> genFieldsNE <*> genNamesNE
"OP_EXT_STORAGE_DIAGNOSE" ->
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment