@@ -86,11 +86,13 @@ migration = Migration { name = "test"
87setupDB :: IO ()
87setupDB :: IO ()
88setupDB = void . withConnection connectionString $
88setupDB = void . withConnection connectionString $
89+ manipulate (UnsafeManipulation "SET client_min_messages TO WARNING;")
89− migrateUp $ single migration
90+ & pqThen (migrateUp (single migration))
91dropDB :: IO ()
92dropDB :: IO ()
92dropDB = void . withConnection connectionString $
93dropDB = void . withConnection connectionString $
94+ manipulate (UnsafeManipulation "SET client_min_messages TO WARNING;")
93− migrateDown $ single migration
95+ & pqThen (migrateDown (single migration))
95connectionString :: Char8.ByteString
97connectionString :: Char8.ByteString
96connectionString = "host=localhost port=5432 dbname=exampledb"
98connectionString = "host=localhost port=5432 dbname=exampledb"