Revision 5f828ce4 htools/Ganeti/Luxi.hs
| b/htools/Ganeti/Luxi.hs | ||
|---|---|---|
| 154 | 154 |
, ("RSUnavailable", 'rsUnavail)
|
| 155 | 155 |
, ("RSOffline", 'rsOffline)
|
| 156 | 156 |
]) |
| 157 |
$(makeJSONInstanceInt ''ResultStatus) |
|
| 157 |
|
|
| 158 |
$(makeJSONInstance ''ResultStatus) |
|
| 158 | 159 |
|
| 159 | 160 |
-- | Check that ResultStatus is success or fail with descriptive message. |
| 160 | 161 |
checkRS :: (Monad m) => ResultStatus -> a -> m a |
Also available in: Unified diff