mongoDB 2.0.1 → 2.0.2

raw patch · 2 files changed

+9/−9 lines, 2 files

Files

• Database/MongoDB/Query.hs +8/−8
• mongoDB.cabal +1/−1

@@ -29,7 +29,7 @@     Query(..), QueryOption(NoCursorTimeout, TailableCursor, AwaitData, Partial),     Projector, Limit, Order, BatchSize,     explain, find, findOne, fetch,-    findAndModify, findAndModifyOpts, FindAndModifyOpts(..),+    findAndModify, findAndModifyOpts, FindAndModifyOpts(..), defFamUpdateOpts,     count, distinct,     -- *** Cursor     Cursor, nextBatch, next, nextN, rest, closeCursor, isCursorClosed,@@ -414,12 +414,12 @@                          }                        deriving Show -findAndModifyUpdate :: Document -> FindAndModifyOpts-findAndModifyUpdate ups = FamUpdate-                        { famNew = True-                        , famUpsert = False-                        , famUpdate = ups-                        }+defFamUpdateOpts :: Document -> FindAndModifyOpts+defFamUpdateOpts ups = FamUpdate+                       { famNew = True+                       , famUpsert = False+                       , famUpdate = ups+                       }  -- | runs the findAndModify command as an update without an upsert and new set to true. -- Returns a single updated document (new option is set to true).@@ -430,7 +430,7 @@               -> Document -- ^ updates               -> Action m (Either String Document) findAndModify q ups = do-  eres <- findAndModifyOpts q (findAndModifyUpdate ups)+  eres <- findAndModifyOpts q (defFamUpdateOpts ups)   return $ case eres of     Left l -> Left l     Right r -> case r of

@@ -1,5 +1,5 @@ Name:           mongoDB-Version:        2.0.1+Version:        2.0.2 Synopsis:       Driver (client) for MongoDB, a free, scalable, fast, document                 DBMS Description:    This package lets you connect to MongoDB servers and