postgresql-migration 0.2.1.3 → 0.2.1.4
raw patch · 2 files changed
+10/−8 lines, 2 files
Files
postgresql-migration.cabal view
@@ -1,6 +1,6 @@ cabal-version: 3.0 name: postgresql-migration-version: 0.2.1.3+version: 0.2.1.4 synopsis: PostgreSQL Schema Migrations homepage: https://github.com/andrevdm/postgresql-migration Bug-reports: https://github.com/andrevdm/postgresql-migration/issues@@ -55,12 +55,12 @@ default-language: Haskell2010 build-depends: base >= 4.9 && < 5.0 , base64-bytestring >= 1.0 && < 1.3- , bytestring >= 0.10 && < 0.11+ , bytestring >= 0.10 && < 0.12 , cryptohash >= 0.11 && < 0.12 , directory >= 1.2 && < 1.4 , filepath >= 1.4.1.0 && < 1.4.3.0 , postgresql-simple >= 0.4 && < 0.7- , time >= 1.4 && < 1.10+ , time >= 1.4 && < 1.12 , text >= 1.2 && < 1.3 executable migrate@@ -78,11 +78,11 @@ build-depends: postgresql-migration , base >= 4.9 && < 5.0 , base64-bytestring >= 1.0 && < 1.3- , bytestring >= 0.10 && < 0.11+ , bytestring >= 0.10 && < 0.12 , cryptohash >= 0.11 && < 0.12 , directory >= 1.2 && < 1.4 , postgresql-simple >= 0.4 && < 0.7- , time >= 1.4 && < 1.10+ , time >= 1.4 && < 1.12 , text >= 1.2 && < 1.3 test-suite tests@@ -101,6 +101,6 @@ type: exitcode-stdio-1.0 build-depends: postgresql-migration , base >= 4.9 && < 5.0- , bytestring >= 0.10 && < 0.11+ , bytestring >= 0.10 && < 0.12 , postgresql-simple >= 0.4 && < 0.7- , hspec >= 2.2 && < 2.9+ , hspec >= 2.2 && <= 2.11.0
src/Database/PostgreSQL/Simple/Migration.hs view
@@ -173,9 +173,11 @@ when (verbose opts) $ optLogWriter opts $ Right $ "Ok:\t" <> fromString name pure MigrationSuccess ScriptNotExecuted -> do+ when (verbose opts) $ optLogWriter opts $ Right ("Executing:\t" <> fromString name) void $ execute_ con (Query contents)+ when (verbose opts) $ optLogWriter opts $ Right ("Adding '" <> fromString name <> "' to schema_migrations with checksum '" <> fromString (show checksum) <> "'") void $ execute con q (name, checksum)- when (verbose opts) $ optLogWriter opts $ Right ("Execute:\t" <> fromString name)+ when (verbose opts) $ optLogWriter opts $ Right ("Executed:\t" <> fromString name) pure MigrationSuccess ScriptModified eva -> do when (verbose opts) $ optLogWriter opts $ Left ("Fail:\t" <> fromString name <> "\n" <> scriptModifiedErrorMessage eva)