Commit 9470b6ee authored by Iustin Pop's avatar Iustin Pop
Browse files

OpCodes.hs: make allow_failover optional



And default to False, like in the Python codebase.
Signed-off-by: default avatarIustin Pop <iustin@google.com>
Reviewed-by: default avatarRené Nussbaumer <rn@google.com>
parent a810ad21
...@@ -95,7 +95,7 @@ loadOpCode v = do ...@@ -95,7 +95,7 @@ loadOpCode v = do
inst <- extract "instance_name" inst <- extract "instance_name"
live <- extract "live" live <- extract "live"
cleanup <- extract "cleanup" cleanup <- extract "cleanup"
allow_failover <- extract "allow_failover" allow_failover <- fromObjWithDefault o "allow_failover" False
return $ OpMigrateInstance inst live cleanup allow_failover return $ OpMigrateInstance inst live cleanup allow_failover
_ -> J.Error $ "Unknown opcode " ++ op_id _ -> J.Error $ "Unknown opcode " ++ op_id
......
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