Skip to content

Instantly share code, notes, and snippets.

@blueonyx

blueonyx/*haskell*.hs

Created July 31, 2010 08:52
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save blueonyx/501951 to your computer and use it in GitHub Desktop.
Save blueonyx/501951 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
*haskell*.hs
ghci> runCouchDB' $ getDoc (db "test") (doc "8e9112011580882422393f6291000f7d") :: IO (Maybe (Doc, JSValue))
*** Exception: user error (internal error: error parsing: {"_id":"8e9112011580882422393f6291000f7d","_rev":"1-967a00dff5e02add41819138abb3284d"})
ghci> runCouchDB' $ getAllDocs (db "test") [("include_docs", JSBool True)] :: IO [(Doc, JSValue)]
[(8e9112011580882422393f6291000f7d,*** Exception: toRowDoc: row does not have a value in [("id",JSString (JSONString {fromJSString = "8e9112011580882422393f6291000f7d"})),("key",JSString (JSONString {fromJSString = "8e9112011580882422393f6291000f7d"})),("value",JSObject (JSONObject {fromJSObject = [("rev",JSString (JSONString {fromJSString = "1-967a00dff5e02add41819138abb3284d"}))]}))]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment