Revision 3ff890a1 src/Ganeti/Types.hs
b/src/Ganeti/Types.hs | ||
---|---|---|
92 | 92 |
, opStatusToRaw |
93 | 93 |
, opStatusFromRaw |
94 | 94 |
, ELogType(..) |
95 |
, ReasonElem |
|
96 |
, ReasonTrail |
|
95 | 97 |
) where |
96 | 98 |
|
97 | 99 |
import Control.Monad (liftM) |
... | ... | |
485 | 487 |
, ("ELogJqueueTest", 'C.elogJqueueTest) |
486 | 488 |
]) |
487 | 489 |
$(THH.makeJSONInstance ''ELogType) |
490 |
|
|
491 |
-- | Type of one element of a reason trail. |
|
492 |
type ReasonElem = (String, String, Integer) |
|
493 |
|
|
494 |
-- | Type representing a reason trail. |
|
495 |
type ReasonTrail = [ReasonElem] |
Also available in: Unified diff