Revision b9bdc10e htools/Ganeti/Query/Language.hs
| b/htools/Ganeti/Query/Language.hs | ||
|---|---|---|
| 336 | 336 |
]) |
| 337 | 337 |
|
| 338 | 338 |
--- | Single field entry result. |
| 339 |
data ResultEntry = ResultEntry ResultStatus (Maybe ResultValue) |
|
| 340 |
deriving (Show, Read, Eq) |
|
| 339 |
data ResultEntry = ResultEntry |
|
| 340 |
{ rentryStatus :: ResultStatus -- ^ The result status
|
|
| 341 |
, rentryValue :: Maybe ResultValue -- ^ The (optional) result value |
|
| 342 |
} deriving (Show, Read, Eq) |
|
| 341 | 343 |
|
| 342 | 344 |
instance JSON ResultEntry where |
| 343 | 345 |
showJSON (ResultEntry rs rv) = |
Also available in: Unified diff