From dad19515de217a8fb6fca81a67641f8aeaab9c3d Mon Sep 17 00:00:00 2001
From: Victor Denisov <denisovenator@gmail.com>
Date: Sat, 21 Jan 2017 17:21:41 -0800
Subject: [PATCH] Keep old behavior of delete command

---
 Database/MongoDB/Query.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/Database/MongoDB/Query.hs b/Database/MongoDB/Query.hs
index 91cfdeb..cec6cab 100644
--- a/Database/MongoDB/Query.hs
+++ b/Database/MongoDB/Query.hs
@@ -851,8 +851,9 @@ deleteOne = deleteHelper [SingleRemove]
 deleteHelper :: (MonadIO m)
              => [DeleteOption] -> Selection -> Action m ()
 deleteHelper opts (Select sel col) = do
-  _ <- delete' True col [(sel, opts)]
-  return ()
+    db <- thisDatabase
+    ctx <- ask
+    liftIO $ runReaderT (void $ write (Delete (db <.> col) opts sel)) ctx
 
 {-| Bulk delete operation. If one delete fails it will not delete the remaining
  - documents. Current returned value is only a place holder. With mongodb server