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