persistent-mongoDB 2.13.0.2 → 2.13.1.0
raw patch · 3 files changed
+14/−10 lines, 3 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
Files
- ChangeLog.md +4/−0
- Database/Persist/MongoDB.hs +9/−9
- persistent-mongoDB.cabal +1/−1
ChangeLog.md view
@@ -1,5 +1,9 @@ # Changelog for persistent-mongoDB +## 2.13.1.0++* Restore update write concern behavior with MongoDB Driver for MongoDB >= 6.0 [#1550](https://github.com/yesodweb/persistent/pull/1550)+ ## 2.13.0.2 * Fix behavioral compatibility with MongoDB Driver for MongoDB >= 6.0 [#1545](https://github.com/yesodweb/persistent/pull/1545)
Database/Persist/MongoDB.hs view
@@ -371,10 +371,6 @@ => Key record -> DB.Query queryByKey k = (DB.select (keyToMongoDoc k) (collectionNameFromKey k)) {DB.project = projectionFromKey k} -selectByKey :: (PersistEntity record, PersistEntityBackend record ~ DB.MongoContext)- => Key record -> DB.Selection-selectByKey k = DB.select (keyToMongoDoc k) (collectionNameFromKey k)- updatesToDoc :: (PersistEntity record, PersistEntityBackend record ~ DB.MongoContext) => [Update record] -> DB.Document updatesToDoc upds = map updateToMongoField upds@@ -554,12 +550,16 @@ insertKey k record = DB.insert_ (collectionName record) $ entityToInsertDoc (Entity k record) - repsert k record = DB.save (collectionName record) $- documentFromEntity (Entity k record)+ repsert k record =+ void $ DB.updateMany+ (collectionName record)+ [(keyToMongoDoc k, documentFromEntity (Entity k record), [DB.Upsert])] - replace k record = do- DB.replace (selectByKey k) (recordToDocument record)- return ()+ replace k record =+ -- replace a single matching document+ void $ DB.updateMany+ (collectionNameFromKey k)+ [(keyToMongoDoc k, recordToDocument record, [])] delete k = void $ DB.deleteMany
persistent-mongoDB.cabal view
@@ -1,5 +1,5 @@ name: persistent-mongoDB-version: 2.13.0.2+version: 2.13.1.0 license: MIT license-file: LICENSE author: Greg Weber <greg@gregweber.info>