Revision c7d249d0 htools/Ganeti/OpCodes.hs

b/htools/Ganeti/OpCodes.hs
57 57 
     ])
58 58 
  , ("OpInstanceReplaceDisks",
59 59 
     [ pInstanceName
60 
     , optionalField $ simpleField "remote_node" [t| String |]
60 
     , pRemoteNode
61 61 
     , simpleField "mode"  [t| ReplaceDisksMode |]
62 62 
     , simpleField "disks" [t| [DiskIndex] |]
63 
     , optionalField $ simpleField "iallocator" [t| String |]
63 
     , pIallocator
64 64 
     ])
65 65 
  , ("OpInstanceFailover",
66 66 
     [ pInstanceName
67 67 
     , simpleField "ignore_consistency" [t| Bool   |]
68 
     , optionalField $ simpleField "target_node" [t| String |]
68 
     , pMigrationTargetNode
69 69 
     ])
70 70 
  , ("OpInstanceMigrate",
71 71 
     [ pInstanceName
72 72 
     , simpleField "live"           [t| Bool   |]
73 73 
     , simpleField "cleanup"        [t| Bool   |]
74 74 
     , defaultField [| False |] $ simpleField "allow_failover" [t| Bool |]
75 
     , optionalField $ simpleField "target_node" [t| String |]
75 
     , pMigrationTargetNode
76 76 
     ])
77 77 
  , ("OpTagsSet",
78 78 
     [ pTagsObject

Also available in: Unified diff