Revision 77cab679
b/htools/Ganeti/JSON.hs | ||
---|---|---|
31 | 31 |
, fromObjWithDefault |
32 | 32 |
, fromKeyValue |
33 | 33 |
, fromJVal |
34 |
, jsonHead |
|
34 | 35 |
, asJSObject |
35 | 36 |
, asObjectList |
36 | 37 |
, tryFromObj |
... | ... | |
125 | 126 |
"', error: " ++ s) |
126 | 127 |
J.Ok x -> return x |
127 | 128 |
|
129 |
-- | Helper function that returns Null or first element of the list. |
|
130 |
jsonHead :: (J.JSON b) => [a] -> (a -> b) -> J.JSValue |
|
131 |
jsonHead [] _ = J.JSNull |
|
132 |
jsonHead (x:_) f = J.showJSON $ f x |
|
133 |
|
|
128 | 134 |
-- | Converts a JSON value into a JSON object. |
129 | 135 |
asJSObject :: (Monad m) => J.JSValue -> m (J.JSObject J.JSValue) |
130 | 136 |
asJSObject (J.JSObject a) = return a |
Also available in: Unified diff