X-Git-Url: https://code.grnet.gr/git/ganeti-local/blobdiff_plain/8d66f58a2ec50119f081d3db869c95acbc5a0090..9470b6eeecc6067400f926444b6008adb1f48f2a:/htools/Ganeti/OpCodes.hs?ds=sidebyside

diff --git a/htools/Ganeti/OpCodes.hs b/htools/Ganeti/OpCodes.hs
index 4b750af..f16c230 100644
--- a/htools/Ganeti/OpCodes.hs
+++ b/htools/Ganeti/OpCodes.hs
@@ -95,7 +95,7 @@ loadOpCode v = do
                  inst    <- extract "instance_name"
                  live    <- extract "live"
                  cleanup <- extract "cleanup"
-                 allow_failover <- extract "allow_failover"
+                 allow_failover <- fromObjWithDefault o "allow_failover" False
                  return $ OpMigrateInstance inst live cleanup allow_failover
     _ -> J.Error $ "Unknown opcode " ++ op_id