From f4e2e1eb5756ba0eb0ff383aa12318e41ad8b859 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Isma=C3=ABl=20Bouya?= Date: Wed, 29 May 2019 14:31:33 +0200 Subject: Generalize Migratory kind --- src/Squeal/PostgreSQL/Hspec.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src') 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 -- | Start a temporary @postgres@ process and create a pool of connections to it setupDB - :: AlignedList (Migration (Terminally PQ IO)) schema0 schema + :: Migratory p => AlignedList (Migration p) schema0 schema -> Fixtures schema -> IO (SquealContext schema) setupDB migration fixtures = do @@ -79,7 +79,7 @@ setupDB migration fixtures = do -- | Drop all the connections and shutdown the @postgres@ process teardownDB - :: AlignedList (Migration (Terminally PQ IO)) schema0 schema + :: Migratory p => AlignedList (Migration p) schema0 schema -> TestDB a -> IO () teardownDB migration TestDB {..} = do @@ -119,7 +119,7 @@ itDB msg action = it msg $ void . withDB action -- -- hook for stopping a db. describeDB - :: AlignedList (Migration (Terminally PQ IO)) schema0 schema + :: Migratory p => AlignedList (Migration p) schema0 schema -> Fixtures schema -> String -> SpecWith (SquealContext schema) -- cgit v1.2.3