Commit f9556d33 authored by Iustin Pop's avatar Iustin Pop
Browse files

Replace hand-coded 'live' field of OpInstanceMigrate



This is the last inline-written field; I've done it separately from
the last patch due to changes being needed in HTools (field changed
type).
Signed-off-by: default avatarIustin Pop <iustin@google.com>
Reviewed-by: default avatarHelga Velroyen <helgav@google.com>
parent 7d421386
......@@ -1453,8 +1453,9 @@ iMoveToJob nl il idx move =
Bad msg -> error $ "Empty node name for idx " ++
show n ++ ": " ++ msg ++ "??"
Ok ne -> Just ne
opF = OpCodes.OpInstanceMigrate iname True False True Nothing
opFA n = OpCodes.OpInstanceMigrate iname True False True (lookNode n)
live = Just True
opF = OpCodes.OpInstanceMigrate iname live False True Nothing
opFA n = OpCodes.OpInstanceMigrate iname live False True (lookNode n)
opR n = OpCodes.OpInstanceReplaceDisks iname (lookNode n)
OpCodes.ReplaceNewSecondary [] Nothing
in case move of
......
......@@ -70,7 +70,7 @@ $(genOpCode "OpCode"
])
, ("OpInstanceMigrate",
[ pInstanceName
, simpleField "live" [t| Bool |]
, pMigrationLive
, pMigrationCleanup
, pAllowFailover
, pMigrationTargetNode
......
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