Skip to content

Instantly share code, notes, and snippets.

@imeredith

imeredith/json.hs

Created April 11, 2014 10:14
Show Gist options
  • Save imeredith/10455851 to your computer and use it in GitHub Desktop.
Save imeredith/10455851 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
json.hs
myjson :: Maybe Int
myjson = do
json <- decode $ "{\"key\":5}"
flip parseMaybe json $ \obj ->
(+) <$> obj .: "key" <*> obj .: "key"
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment