Revision 7209d304
b/src/Ganeti/JSON.hs | ||
---|---|---|
171 | 171 |
asObjectList :: (Monad m) => [J.JSValue] -> m [J.JSObject J.JSValue] |
172 | 172 |
asObjectList = mapM asJSObject |
173 | 173 |
|
174 |
-- | Try to extract a key from a object with better error reporting |
|
174 |
-- | Try to extract a key from an object with better error reporting
|
|
175 | 175 |
-- than fromObj. |
176 | 176 |
tryFromObj :: (J.JSON a) => |
177 | 177 |
String -- ^ Textual "owner" in error messages |
Also available in: Unified diff