beam-automigrate 0.1.0.0 → 0.1.0.1
raw patch · 6 files changed
+23/−13 lines, 6 filesdep ~pretty-simpledep ~timePVP ok
version bump matches the API change (PVP)
Dependency ranges changed: pretty-simple, time
API changes (from Hackage documentation)
Files
- CHANGELOG.md +6/−0
- README.lhs +3/−2
- README.md +3/−2
- beam-automigrate.cabal +5/−3
- bench/Main.hs +3/−3
- src/Database/Beam/AutoMigrate/Postgres.hs +3/−3
CHANGELOG.md view
@@ -1,5 +1,11 @@ # Revision history for beam-automigrate +## 0.1.0.1++* Loosen time version bounds+* readme: Fix warning about a transaction already running+* Support for GHC 8.10+ ## 0.1.0.0 * Initial release. Generate schemas and migrations for beam databases. See limitations in [README.md](README.md)
README.lhs view
@@ -272,8 +272,9 @@ > BA.printMigration $ BA.migrate conn hsSchema > > exampleAutoMigration :: IO ()-> exampleAutoMigration = readmeDbTransaction $ \conn ->-> BA.tryRunMigrationsWithEditUpdate annotatedDB conn+> exampleAutoMigration = withDb "readme-db" $ \pool ->+> withResource pool $ \conn ->+> BA.tryRunMigrationsWithEditUpdate annotatedDB conn > > main :: IO () > main = do
README.md view
@@ -272,8 +272,9 @@ > BA.printMigration $ BA.migrate conn hsSchema > > exampleAutoMigration :: IO ()-> exampleAutoMigration = readmeDbTransaction $ \conn ->-> BA.tryRunMigrationsWithEditUpdate annotatedDB conn+> exampleAutoMigration = withDb "readme-db" $ \pool ->+> withResource pool $ \conn ->+> BA.tryRunMigrationsWithEditUpdate annotatedDB conn > > main :: IO () > main = do
beam-automigrate.cabal view
@@ -1,5 +1,5 @@ name: beam-automigrate-version: 0.1.0.0+version: 0.1.0.1 license-file: LICENSE build-type: Simple cabal-version: >=1.10@@ -22,6 +22,8 @@ README.md CHANGELOG.md +tested-with: GHC ==8.6.5 || ==8.8.4 || ==8.10.2+ library exposed-modules: Database.Beam.AutoMigrate@@ -49,14 +51,14 @@ , microlens >=0.4.10 && <0.6 , mtl >=2.2.2 && <2.4 , postgresql-simple >=0.5.4 && <0.7.0.0- , pretty-simple >=2.2.0 && <2.3+ , pretty-simple >=2.2.0 && <3.3 , QuickCheck >=2.13 && <2.15 , quickcheck-instances >=0.3 && <0.4 , scientific >=0.3.6 && <0.5 , splitmix >=0.0.3 && <0.1 , string-conv >=0.1.2 && <0.3 , text >=1.2.0.0 && <1.3.0.0- , time >=1.8.0 && <1.9+ , time >=1.8.0 && <2 , transformers >=0.5.6 && <0.7 , uuid >=1.3 && <1.4 , vector >=0.12.0.3 && <0.13.0.0
bench/Main.hs view
@@ -6,9 +6,9 @@ import Control.Monad.IO.Class (liftIO) import Criterion.Main import qualified Data.Map.Strict as M-import Database.Beam.Migrate.New-import Database.Beam.Migrate.New.BenchUtil-import Database.Beam.Migrate.New.Postgres (getSchema)+import Database.Beam.AutoMigrate+import Database.Beam.AutoMigrate.BenchUtil+import Database.Beam.AutoMigrate.Postgres (getSchema) import Database.Beam.Postgres (runBeamPostgres) import qualified Database.PostgreSQL.Simple as Pg
src/Database/Beam/AutoMigrate/Postgres.hs view
@@ -28,7 +28,7 @@ import Database.Beam.Backend.SQL hiding (tableName) import qualified Database.Beam.Backend.SQL.AST as AST import qualified Database.PostgreSQL.Simple as Pg-import Database.PostgreSQL.Simple.FromField (FromField (..), fromField)+import Database.PostgreSQL.Simple.FromField (FromField (..), fromField, returnError) import Database.PostgreSQL.Simple.FromRow (FromRow (..), field) import qualified Database.PostgreSQL.Simple.TypeInfo.Static as Pg import qualified Database.PostgreSQL.Simple.Types as Pg@@ -84,11 +84,11 @@ instance FromField SqlRawOtherConstraintType where fromField f dat = do- t <- fromField f dat+ t :: String <- fromField f dat case t of "p" -> pure SQL_raw_pk "u" -> pure SQL_raw_unique- _ -> fail ("Unexpected costraint type: " <> t)+ _ -> returnError Pg.ConversionFailed f t -- -- Postgres queries to extract the schema out of the DB