Revision b46ba79c htools/Ganeti/OpParams.hs
b/htools/Ganeti/OpParams.hs | ||
---|---|---|
229 | 229 |
, pNetworkRemoveRsvdIps |
230 | 230 |
, pNetworkMode |
231 | 231 |
, pNetworkLink |
232 |
, pDryRun |
|
233 |
, pDebugLevel |
|
234 |
, pOpPriority |
|
235 |
, pDependencies |
|
236 |
, pComment |
|
232 | 237 |
, dOldQuery |
233 | 238 |
, dOldQueryNoLocking |
234 | 239 |
) where |
... | ... | |
1393 | 1398 |
pNetworkLink :: Field |
1394 | 1399 |
pNetworkLink = simpleField "network_link" [t| NonEmptyString |] |
1395 | 1400 |
|
1401 |
-- * Common opcode parameters |
|
1402 |
|
|
1403 |
-- | Run checks only, don't execute. |
|
1404 |
pDryRun :: Field |
|
1405 |
pDryRun = optionalField $ booleanField "dry_run" |
|
1406 |
|
|
1407 |
-- | Debug level. |
|
1408 |
pDebugLevel :: Field |
|
1409 |
pDebugLevel = optionalField $ simpleField "debug_level" [t| NonNegative Int |] |
|
1410 |
|
|
1411 |
-- | Opcode priority. Note: python uses a separate constant, we're |
|
1412 |
-- using the actual value we know it's the default. |
|
1413 |
pOpPriority :: Field |
|
1414 |
pOpPriority = |
|
1415 |
defaultField [| OpPrioNormal |] $ |
|
1416 |
simpleField "priority" [t| OpSubmitPriority |] |
|
1417 |
|
|
1418 |
-- | Job dependencies. |
|
1419 |
pDependencies :: Field |
|
1420 |
pDependencies = optionalField $ simpleField "depends" [t| [JobDependency] |] |
|
1421 |
|
|
1422 |
-- | Comment field. |
|
1423 |
pComment :: Field |
|
1424 |
pComment = optionalField $ stringField "comment" |
|
1425 |
|
|
1396 | 1426 |
-- * Entire opcode parameter list |
1397 | 1427 |
|
1398 | 1428 |
-- | Old-style query opcode, with locking. |
Also available in: Unified diff