@@ -76,15 +76,23 @@ let
7676 liftBase $ print num
7777:}
7878
79+>>> :{
80+let
81+ suppressNotices :: PQ schema schema IO ()
82+ suppressNotices = void . manipulate $ UnsafeManipulation
83+ "SET client_min_messages TO WARNING;"
84+:}
85+
7986>>> :{
8087withConnection "host=localhost port=5432 dbname=exampledb" $
81− migrateUp migrations
88+ suppressNotices
89+ & pqThen (migrateUp migrations)
8290 & pqThen numMigrations
8391 & pqThen (migrateDown migrations)
92+ & pqThen numMigrations
8493:}
85−NOTICE: relation "schema_migrations" already exists, skipping
8694Row 2
87−NOTICE: relation "schema_migrations" already exists, skipping
95+Row 0
8896-}
8997
9098{-# LANGUAGE