Attachment delete implemented

akaspin · Aug 13, 2012 · 667417b · 667417b
1 parent 7bb83e6
commit 667417b
Showing 1 changed file with 9 additions and 1 deletion.
diff --git a/src/Database/CouchDB/Conduit/Attachment.hs b/src/Database/CouchDB/Conduit/Attachment.hs
@@ -75,7 +75,15 @@ couchDeleteAttach :: MonadCouch m =>
     -> ByteString       -- ^ Attachment path
     -> Revision         -- ^ Document revision
     -> m Revision
-couchDeleteAttach = undefined
+couchDeleteAttach db doc att rev = do
+    Response _ _ _ bsrc <- couch HT.methodDelete
+            (attachPath db doc att)
+            []
+            [("rev", Just rev)]
+            (RequestBodyBS "")
+            protect'
+    j <- bsrc $$+- CA.sinkParser A.json
+    either throw return $ extractRev j
 
 ------------------------------------------------------------------------------
 -- Internal