@@ -86,11 +86,13 @@ migration = Migration { name = "test"
8686
8787setupDB :: IO ()
8888setupDB = void . withConnection connectionString $
89− migrateUp $ single migration
89+ manipulate (UnsafeManipulation "SET client_min_messages TO WARNING;")
90+ & pqThen (migrateUp (single migration))
9091
9192dropDB :: IO ()
9293dropDB = void . withConnection connectionString $
93− migrateDown $ single migration
94+ manipulate (UnsafeManipulation "SET client_min_messages TO WARNING;")
95+ & pqThen (migrateDown (single migration))
9496
9597connectionString :: Char8.ByteString
9698connectionString = "host=localhost port=5432 dbname=exampledb"