persistent-postgresql 2.13.6.1 → 2.13.6.2

raw patch · 9 files changed

+15/−3 lines, 9 filesdep ~postgresql-libpq

Dependency ranges changed: postgresql-libpq

Files

ChangeLog.md +5/−0
Database/Persist/Postgresql.hs +3/−2
persistent-postgresql.cabal +1/−1
test/ArrayAggTest.hs +1/−0
test/EquivalentTypeTestPostgres.hs +1/−0
test/ImplicitUuidSpec.hs +1/−0
test/PgIntervalTest.hs +1/−0
test/UpsertWhere.hs +1/−0
test/main.hs +1/−0

ChangeLog.md view

@@ -1,5 +1,10 @@ # Changelog for persistent-postgresql +## 2.13.6.2++* [#1536](https://github.com/yesodweb/persistent/pull/1536/)+    * Build with GHC 9.10+ ## 2.13.6.1  * [#1518](https://github.com/yesodweb/persistent/pull/1518)

Database/Persist/Postgresql.hs view

@@ -13,6 +13,7 @@ {-# LANGUAGE StandaloneDeriving #-} {-# LANGUAGE TupleSections #-} {-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE TypeOperators #-} {-# LANGUAGE ViewPatterns #-}  #if MIN_VERSION_base(4,12,0)@@ -107,7 +108,7 @@ import Data.Function (on) import Data.Int (Int64) import Data.IORef-import Data.List (find, foldl', groupBy, sort)+import Data.List as List (find, foldl', groupBy, sort) import qualified Data.List as List import Data.List.NonEmpty (NonEmpty) import qualified Data.Map as Map@@ -845,7 +846,7 @@     refMap =         fmap (\cr -> (crTableName cr, crConstraintName cr))         $ Map.fromList-        $ foldl' ref [] cols+        $ List.foldl' ref [] cols       where         ref rs c =             maybe rs (\r -> (unFieldNameDB $ cName c, r) : rs) (cReference c)

persistent-postgresql.cabal view

@@ -1,5 +1,5 @@ name:            persistent-postgresql-version:         2.13.6.1+version:         2.13.6.2 license:         MIT license-file:    LICENSE author:          Felipe Lessa, Michael Snoyman <michael@snoyman.com>

test/ArrayAggTest.hs view

@@ -6,6 +6,7 @@ {-# LANGUAGE QuasiQuotes #-} {-# LANGUAGE TemplateHaskell #-} {-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE TypeOperators #-} {-# LANGUAGE UndecidableInstances #-} -- FIXME {-# LANGUAGE StandaloneDeriving #-} {-# LANGUAGE DerivingStrategies #-}

test/EquivalentTypeTestPostgres.hs view

@@ -9,6 +9,7 @@ {-# LANGUAGE UndecidableInstances #-} {-# LANGUAGE DerivingStrategies #-} {-# LANGUAGE StandaloneDeriving #-}+{-# LANGUAGE TypeOperators #-} {-# OPTIONS_GHC -Wno-unused-top-binds #-}  module EquivalentTypeTestPostgres (specs) where

test/ImplicitUuidSpec.hs view

@@ -10,6 +10,7 @@ {-# LANGUAGE TemplateHaskell #-} {-# LANGUAGE TypeApplications #-} {-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE TypeOperators #-} {-# LANGUAGE UndecidableInstances #-}  module ImplicitUuidSpec where

test/PgIntervalTest.hs view

@@ -11,6 +11,7 @@ {-# LANGUAGE DerivingStrategies         #-} {-# LANGUAGE StandaloneDeriving         #-} {-# LANGUAGE DeriveAnyClass             #-}+{-# LANGUAGE TypeOperators              #-}  module PgIntervalTest where

test/UpsertWhere.hs view

@@ -10,6 +10,7 @@ {-# LANGUAGE TemplateHaskell #-} {-# LANGUAGE TypeApplications #-} {-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE TypeOperators #-} {-# LANGUAGE UndecidableInstances #-}  module UpsertWhere where

test/main.hs view

@@ -9,6 +9,7 @@ {-# LANGUAGE StandaloneDeriving #-} {-# LANGUAGE TemplateHaskell #-} {-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE TypeOperators #-} {-# LANGUAGE UndecidableInstances #-} {-# OPTIONS_GHC -Wno-unused-top-binds #-}