Vergara_Tech/mongodb
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Keep old behavior of update

Browse source
This commit is contained in:
Victor Denisov 2017-01-21 17:16:59 -08:00
parent 6a13bde01b
commit d1d5f84b22
1 changed files with 4 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
Database/MongoDB/Query.hs
View file

@ -68,7 +68,7 @@ import Control.Concurrent.MVar.Lifted (MVar, newMVar, addMVarFinalizer,
#endif
import Control.Applicative ((<$>))
import Control.Exception (catch)
import Control.Monad (when)
import Control.Monad (when, void)
import Control.Monad.Base (MonadBase)
import Control.Monad.Error (Error(..))
import Control.Monad.Reader (MonadReader, ReaderT, runReaderT, ask, asks, local)
@ -618,10 +618,9 @@ update :: (MonadIO m)
=> [UpdateOption] -> Selection -> Document -> Action m ()
-- ^ Update first document in selection using updater document, unless 'MultiUpdate' option is supplied then update all documents in selection. If 'Upsert' option is supplied then treat updater as document and insert it if selection is empty.
update opts (Select sel col) up = do
res <- update' True col [(sel, up, opts)]
if not $ null $ writeErrors res
then liftIO $ throwIO $ WriteFailure 0 0 (show $ head $ writeErrors res)
else return ()
db <- thisDatabase
ctx <- ask
liftIO $ runReaderT (void $ write (Update (db <.> col) opts sel up)) ctx
updateCommandDocument :: Collection -> Bool -> [Document] -> Document -> Document
updateCommandDocument col ordered updates writeConcern =