persistent-typed-db 0.1.0.5 → 0.1.0.6

raw patch · 3 files changed

+9/−6 lines, 3 filesdep ~aesonPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: aeson

API changes (from Hackage documentation)

Files

• CHANGELOG.md +4/−0
• persistent-typed-db.cabal +1/−1
• src/Database/Persist/Typed.hs +4/−5

@@ -1,5 +1,9 @@ # CHANGELOG +# 0.1.0.6++- Support `aeson-2`+ # 0.1.0.5  - Support `persistent-2.13.2`

@@ -1,6 +1,6 @@ cabal-version: 1.12 name:           persistent-typed-db-version:        0.1.0.5+version:        0.1.0.6 synopsis:       Type safe access to multiple database schemata. description:    See README.md for more details, examples, and fun. category:       Web

@@ -40,7 +40,7 @@ import Control.Monad.Logger (NoLoggingT) import Control.Monad.Trans.Reader (ReaderT(..), ask, asks, withReaderT) import Control.Monad.Trans.Resource (MonadUnliftIO, ResourceT)-import Data.Aeson as A+import qualified Data.Aeson as A import Data.ByteString.Char8 (readInteger) import Data.Coerce (coerce) import Data.Conduit ((.|))@@ -49,9 +49,8 @@ import Data.Foldable (toList) import Data.Int (Int64) import Data.List (find, inits, transpose)-import qualified Data.List.NonEmpty as NEL import Data.Maybe (isJust)-import Data.Monoid (mappend, (<>))+import Data.Monoid (mappend) import Data.Pool (Pool) import Data.Text (Text) import qualified Data.Text as Text@@ -524,12 +523,12 @@       conn <- ask       let escape = connEscapeRawName conn       let refCol n = Text.concat [escape (unEntityNameDB $ getEntityDBName t), ".", n]-      let mkUpdateText = mkUpdateText' (escape . unFieldNameDB) refCol+      let mkUpdateFieldText = mkUpdateText' (escape . unFieldNameDB) refCol       case connUpsertSql conn of         Just upsertSql -> case updates of                             [] -> generalizeQuery $ defaultUpsertBy uniqueKey record updates                             _:_ -> do-                                let upds = Text.intercalate "," $ map mkUpdateText updates+                                let upds = Text.intercalate "," $ map mkUpdateFieldText updates                                     sql = upsertSql t (persistUniqueToFieldNames uniqueKey) upds                                     vals = map toPersistValue (toPersistFields record)                                         ++ map updatePersistValue updates