Revision 2befdc14

b/Ganeti/HTools/Utils.hs
130 130 
fromObj :: (J.JSON a, Monad m) => [(String, J.JSValue)] -> String -> m a
131 131 
fromObj o k =
132 132 
    case lookup k o of
133 
      Nothing -> fail $ printf "key '%s' not found in %s" k (show o)
133 
      Nothing -> fail $ printf "key '%s' not found, object contains only %s"
134 
                 k (show (map fst o))
134 135 
      Just val -> fromKeyValue k val
135 136 

  		





  136
  137
  
    
-- | Reads the value of an optional key in a JSON object.


  		












Also available in:
  Unified diff