Revision a59d5fa1 src/Ganeti/Types.hs
b/src/Ganeti/Types.hs | ||
---|---|---|
92 | 92 |
, opStatusToRaw |
93 | 93 |
, opStatusFromRaw |
94 | 94 |
, ELogType(..) |
95 |
, InstReasonSrc(..) |
|
95 | 96 |
) where |
96 | 97 |
|
97 | 98 |
import Control.Monad (liftM) |
... | ... | |
481 | 482 |
, ("ELogJqueueTest", 'C.elogJqueueTest) |
482 | 483 |
]) |
483 | 484 |
$(THH.makeJSONInstance ''ELogType) |
485 |
|
|
486 |
-- | Type for the source of the state change of instances. |
|
487 |
$(THH.declareSADT "InstReasonSrc" |
|
488 |
[ ("IRSCli", 'C.instanceReasonSourceCli) |
|
489 |
, ("IRSRapi", 'C.instanceReasonSourceRapi) |
|
490 |
]) |
|
491 |
$(THH.makeJSONInstance ''InstReasonSrc) |
|
492 |
|
|
493 |
|
Also available in: Unified diff