Revision 7d421386 htools/Ganeti/OpCodes.hs

b/htools/Ganeti/OpCodes.hs
51 51 
-- in the htools codebase.
52 52 
$(genOpCode "OpCode"
53 53 
  [ ("OpTestDelay",
54 
     [ simpleField "duration"  [t| Double   |]
55 
     , simpleField "on_master" [t| Bool     |]
56 
     , simpleField "on_nodes"  [t| [String] |]
54 
     [ pDelayDuration
55 
     , pDelayOnMaster
56 
     , pDelayOnNodes
57 57 
     , pDelayRepeat
58 58 
     ])
59 59 
  , ("OpInstanceReplaceDisks",
60 60 
     [ pInstanceName
61 61 
     , pRemoteNode
62 
     , simpleField "mode"  [t| ReplaceDisksMode |]
63 
     , simpleField "disks" [t| [DiskIndex] |]
62 
     , pReplaceDisksMode
63 
     , pReplaceDisksList
64 64 
     , pIallocator
65 65 
     ])
66 66 
  , ("OpInstanceFailover",
67 67 
     [ pInstanceName
68 
     , simpleField "ignore_consistency" [t| Bool   |]
68 
     , pIgnoreConsistency
69 69 
     , pMigrationTargetNode
70 70 
     ])
71 71 
  , ("OpInstanceMigrate",
72 72 
     [ pInstanceName
73 73 
     , simpleField "live"           [t| Bool   |]
74 
     , simpleField "cleanup"        [t| Bool   |]
75 
     , defaultField [| False |] $ simpleField "allow_failover" [t| Bool |]
74 
     , pMigrationCleanup
75 
     , pAllowFailover
76 76 
     , pMigrationTargetNode
77 77 
     ])
78 78 
  , ("OpTagsGet",

Also available in: Unified diff