Revision f36a8028 Ganeti/OpCodes.hs

b/Ganeti/OpCodes.hs
81 81 
                 return $ OpTestDelay duration on_master on_nodes
82 82 
    "OP_INSTANCE_REPLACE_DISKS" -> do
83 83 
                 inst <- fromObj "instance_name" o
84 
                 node <- fromObj "remote_node" o
84 
                 node <- maybeFromObj "remote_node" o
85 85 
                 mode <- fromObj "mode" o
86 86 
                 disks <- fromObj "disks" o
87 
                 ialloc <- fromObj "iallocator" o
87 
                 ialloc <- maybeFromObj "iallocator" o
88 88 
                 return $ OpReplaceDisks inst node mode disks ialloc
89 89 
    "OP_INSTANCE_FAILOVER" -> do
90 90 
                 inst <- fromObj "instance_name" o

Also available in: Unified diff