Revision 706f7f51 htools/Ganeti/HTools/JSON.hs
b/htools/Ganeti/HTools/JSON.hs | ||
---|---|---|
29 | 29 |
, fromObj |
30 | 30 |
, maybeFromObj |
31 | 31 |
, fromObjWithDefault |
32 |
, fromKeyValue |
|
32 | 33 |
, fromJVal |
33 | 34 |
, asJSObject |
34 | 35 |
, asObjectList |
... | ... | |
95 | 96 |
-> J.JSValue -- ^ The value to read |
96 | 97 |
-> m a |
97 | 98 |
fromKeyValue k val = |
98 |
fromJResult (printf "key '%s', value '%s'" k (show val)) (J.readJSON val)
|
|
99 |
fromJResult (printf "key '%s'" k) (J.readJSON val)
|
|
99 | 100 |
|
100 | 101 |
-- | Small wrapper over readJSON. |
101 | 102 |
fromJVal :: (Monad m, J.JSON a) => J.JSValue -> m a |
Also available in: Unified diff