Commits

Anonymous committed c1ba6a0

Empty trash

Comments (0)

Files changed (1)

src/Database/CouchDB/Enumerator.hs

      -> a           -- ^ The object to store.
      -> m Revision   
 couchPutRev p r q val = do
-    liftIO $ print $ TE.encodeUtf8 r
     v <- run_ $ couch' HT.methodPut p (ifMatch r) q 
             (\_ -> iterParser A.json) body
     either (liftIO . throw) return (valToObj v >>= objToRev)