Revision a59d5fa1 src/Ganeti/OpParams.hs
b/src/Ganeti/OpParams.hs | ||
---|---|---|
236 | 236 |
, pOpPriority |
237 | 237 |
, pDependencies |
238 | 238 |
, pComment |
239 |
, pReason |
|
239 | 240 |
, dOldQuery |
240 | 241 |
, dOldQueryNoLocking |
241 | 242 |
) where |
... | ... | |
1435 | 1436 |
pComment :: Field |
1436 | 1437 |
pComment = optionalNullSerField $ stringField "comment" |
1437 | 1438 |
|
1439 |
-- | The description of the state change reason. |
|
1440 |
pReason :: Field |
|
1441 |
pReason = simpleField "reason" [t| (InstReasonSrc, NonEmptyString) |] |
|
1442 |
|
|
1438 | 1443 |
-- * Entire opcode parameter list |
1439 | 1444 |
|
1440 | 1445 |
-- | Old-style query opcode, with locking. |
Also available in: Unified diff