Revision 9470b6ee htools/Ganeti/OpCodes.hs

b/htools/Ganeti/OpCodes.hs
95 95 
                 inst    <- extract "instance_name"
96 96 
                 live    <- extract "live"
97 97 
                 cleanup <- extract "cleanup"
98 
                 allow_failover <- extract "allow_failover"
98 
                 allow_failover <- fromObjWithDefault o "allow_failover" False
99 99 
                 return $ OpMigrateInstance inst live cleanup allow_failover
100 100 
    _ -> J.Error $ "Unknown opcode " ++ op_id
101 101 

  		












Also available in:
  Unified diff