persistent-mongoDB 1.3.3 → 1.3.3.1

raw patch · 2 files changed

+5/−8 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• Database/Persist/MongoDB.hs +4/−7
• persistent-mongoDB.cabal +1/−1

@@ -321,10 +321,6 @@ updatesToDoc :: (PersistEntity entity) => [Update entity] -> DB.Document updatesToDoc upds = map updateToMongoField upds -updateFields :: (PersistEntity entity) => [Update entity] -> [DB.Field]-updateFields = updatesToDoc-{-# DEPRECATED updateFields "Please use updatesToDoc instead" #-}- updateToMongoField :: (PersistEntity entity) => Update entity -> DB.Field updateToMongoField (Update field v up) =     opName DB.:= DB.Doc [fieldName field DB.:= opValue]@@ -882,7 +878,7 @@         (NoOrphanNominalDiffTime connectionIdleTime) <- o .:? "connectionIdleTime" .!= (NoOrphanNominalDiffTime defaultConnectionIdleTime)         mUser              <- o .:? "user"         mPass              <- o .:? "password"-        accessString       <- o .:? "accessMode" .!= T.pack (show defaultAccessMode)+        accessString       <- o .:? "accessMode" .!= confirmWrites          mPoolSize         <- o .:? "poolsize"         case mPoolSize of@@ -892,8 +888,8 @@         accessMode <- case accessString of              "ReadStaleOk"       -> return DB.ReadStaleOk              "UnconfirmedWrites" -> return DB.UnconfirmedWrites-             "ConfirmWrites"     -> return $ defaultAccessMode-             badAccess -> fail $ "unknown accessMode: " ++ (T.unpack badAccess)+             confirmWrites       -> return defaultAccessMode+             badAccess -> fail $ "unknown accessMode: " ++ T.unpack badAccess          return $ MongoConf {             mgDatabase = db@@ -910,6 +906,7 @@           , mgConnectionIdleTime = connectionIdleTime           }       where+        confirmWrites = "ConfirmWrites"     {-         safeRead :: String -> T.Text -> MEither String Int         safeRead name t = case reads s of

@@ -1,5 +1,5 @@ name:            persistent-mongoDB-version:         1.3.3+version:         1.3.3.1 license:         MIT license-file:    LICENSE author:          Greg Weber <greg@gregweber.info>