Revision f198cf91 src/Ganeti/OpParams.hs

b/src/Ganeti/OpParams.hs
83 83
  , pMigrationTargetNodeUuid
84 84
  , pMoveTargetNode
85 85
  , pMoveTargetNodeUuid
86
  , pMoveCompress
86 87
  , pStartupPaused
87 88
  , pVerbose
88 89
  , pDebugSimulateErrors
......
1241 1242
  renameField "MoveTargetNodeUuid" . optionalField $
1242 1243
  simpleField "target_node_uuid" [t| NonEmptyString |]
1243 1244

  
1245
pMoveCompress :: Field
1246
pMoveCompress =
1247
  withDoc "Compression mode to use during instance moves" .
1248
  defaultField [| None |] $
1249
  simpleField "compress" [t| ImportExportCompression |]
1250

  
1244 1251
pIgnoreDiskSize :: Field
1245 1252
pIgnoreDiskSize =
1246 1253
  withDoc "Whether to ignore recorded disk size" $

Also available in: Unified diff