Revision 3ff890a1
| 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