persistent-postgresql 2.13.5.0 → 2.13.5.1

raw patch · 5 files changed

+17/−9 lines, 5 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

ChangeLog.md +5/−0
Database/Persist/Postgresql.hs +1/−1
persistent-postgresql.cabal +1/−1
test/PgInit.hs +7/−7
test/main.hs +3/−0

ChangeLog.md view

@@ -1,5 +1,10 @@ # Changelog for persistent-postgresql +## 2.13.5.1++* [#1459](https://github.com/yesodweb/persistent/pull/1459)+    * Make use of `CautiousMigration` type alias for clarity.+ ## 2.13.5.0  * [#1362](https://github.com/yesodweb/persistent/pull/1362/)

Database/Persist/Postgresql.hs view

@@ -612,7 +612,7 @@ migrate' :: [EntityDef]          -> (Text -> IO Statement)          -> EntityDef-         -> IO (Either [Text] [(Bool, Text)])+         -> IO (Either [Text] CautiousMigration) migrate' allDefs getter entity = fmap (fmap $ map showAlterDb) $ do     old <- getColumns getter entity newcols'     case partitionEithers old of

persistent-postgresql.cabal view

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

test/PgInit.hs view

@@ -48,6 +48,7 @@        , MonadFail        , RunDb        , TestFn(..)+       , UUID(..)        , arbText        , asIO        , assertEmpty@@ -55,35 +56,35 @@        , assertNotEqual        , isTravis        , liftA2+       , sqlSettingsUuid        , truncateTimeOfDay        , truncateToMicro        , truncateUTCTime        , (==@)        , (@/=)        , (@==)-       , UUID(..)-       , sqlSettingsUuid        )  -- re-exports import Control.Exception (SomeException) import Control.Monad (forM_, liftM, replicateM, void, when) import Control.Monad.Trans.Reader-import Data.Aeson (ToJSON, FromJSON, Value(..), object)+import Data.Aeson (FromJSON, ToJSON, Value(..), object)+import qualified Data.Text.Encoding as TE import Database.Persist.Postgresql.JSON () import Database.Persist.Sql.Raw.QQ import Database.Persist.SqlBackend import Database.Persist.TH        ( MkPersistSettings(..)-       , mkMigrate        , migrateModels+       , mkEntityDefList+       , mkMigrate        , mkPersist        , persistLowerCase        , persistUpperCase+       , setImplicitIdDef        , share        , sqlSettings-       , setImplicitIdDef-       , mkEntityDefList        ) import Test.Hspec        ( Arg@@ -102,7 +103,6 @@ import Test.Hspec.Expectations.Lifted import Test.QuickCheck.Instances () import UnliftIO-import qualified Data.Text.Encoding as TE  -- testing import Test.HUnit (Assertion, assertBool, assertFailure, (@=?), (@?=))

test/main.hs view

@@ -58,6 +58,7 @@ import qualified SumTypeTest import qualified TransactionLevelTest import qualified TreeTest+import qualified TypeLitFieldDefsTest import qualified UniqueTest import qualified UpsertTest import qualified UpsertWhere@@ -121,6 +122,7 @@       , UniqueTest.uniqueMigrate       , MaxLenTest.maxlenMigrate       , MaybeFieldDefsTest.maybeFieldDefMigrate+      , TypeLitFieldDefsTest.typeLitFieldDefsMigrate       , Recursive.recursiveMigrate       , CompositeTest.compositeMigrate       , TreeTest.treeMigrate@@ -174,6 +176,7 @@       UniqueTest.specsWith runConnAssert       MaxLenTest.specsWith runConnAssert       MaybeFieldDefsTest.specsWith runConnAssert+      TypeLitFieldDefsTest.specsWith runConnAssert       Recursive.specsWith runConnAssert       SumTypeTest.specsWith runConnAssert (Just (runMigrationSilent SumTypeTest.sumTypeMigrate))       MigrationTest.specsWith runConnAssert