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