diff options
| author | Ismaël Bouya <ismael.bouya@fretlink.com> | 2019-05-29 14:31:33 +0200 |
|---|---|---|
| committer | Ismaël Bouya <ismael.bouya@fretlink.com> | 2019-05-29 14:31:33 +0200 |
| commit | f4e2e1eb5756ba0eb0ff383aa12318e41ad8b859 (patch) | |
| tree | fc619912292aee1228dda6a54473bb6bce8dc10a | |
| parent | 33eca3fd474c089b102da97ba341e110d426f69d (diff) | |
| download | squeal-hspec-f4e2e1eb5756ba0eb0ff383aa12318e41ad8b859.tar.gz squeal-hspec-f4e2e1eb5756ba0eb0ff383aa12318e41ad8b859.tar.zst squeal-hspec-f4e2e1eb5756ba0eb0ff383aa12318e41ad8b859.zip | |
Generalize Migratory kind
| -rw-r--r-- | src/Squeal/PostgreSQL/Hspec.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Squeal/PostgreSQL/Hspec.hs b/src/Squeal/PostgreSQL/Hspec.hs index d065048..d96d9a2 100644 --- a/src/Squeal/PostgreSQL/Hspec.hs +++ b/src/Squeal/PostgreSQL/Hspec.hs | |||
| @@ -59,7 +59,7 @@ createTempDB = do | |||
| 59 | 59 | ||
| 60 | -- | Start a temporary @postgres@ process and create a pool of connections to it | 60 | -- | Start a temporary @postgres@ process and create a pool of connections to it |
| 61 | setupDB | 61 | setupDB |
| 62 | :: AlignedList (Migration (Terminally PQ IO)) schema0 schema | 62 | :: Migratory p => AlignedList (Migration p) schema0 schema |
| 63 | -> Fixtures schema | 63 | -> Fixtures schema |
| 64 | -> IO (SquealContext schema) | 64 | -> IO (SquealContext schema) |
| 65 | setupDB migration fixtures = do | 65 | setupDB migration fixtures = do |
| @@ -79,7 +79,7 @@ setupDB migration fixtures = do | |||
| 79 | 79 | ||
| 80 | -- | Drop all the connections and shutdown the @postgres@ process | 80 | -- | Drop all the connections and shutdown the @postgres@ process |
| 81 | teardownDB | 81 | teardownDB |
| 82 | :: AlignedList (Migration (Terminally PQ IO)) schema0 schema | 82 | :: Migratory p => AlignedList (Migration p) schema0 schema |
| 83 | -> TestDB a | 83 | -> TestDB a |
| 84 | -> IO () | 84 | -> IO () |
| 85 | teardownDB migration TestDB {..} = do | 85 | teardownDB migration TestDB {..} = do |
| @@ -119,7 +119,7 @@ itDB msg action = it msg $ void . withDB action | |||
| 119 | -- | 119 | -- |
| 120 | -- hook for stopping a db. | 120 | -- hook for stopping a db. |
| 121 | describeDB | 121 | describeDB |
| 122 | :: AlignedList (Migration (Terminally PQ IO)) schema0 schema | 122 | :: Migratory p => AlignedList (Migration p) schema0 schema |
| 123 | -> Fixtures schema | 123 | -> Fixtures schema |
| 124 | -> String | 124 | -> String |
| 125 | -> SpecWith (SquealContext schema) | 125 | -> SpecWith (SquealContext schema) |