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