@@ -91,7 +91,7 @@ setupDB = void . withConnection connectionString $
92dropDB :: IO ()
92dropDB :: IO ()
93dropDB = void . withConnection connectionString $
93dropDB = void . withConnection connectionString $
94− manipulate (UnsafeManipulation "SET client_min_messages = error;")
94+ manipulate (UnsafeManipulation "SET client_min_messages = warning;")
95 & pqThen $ migrateDown $ single migration
95 & pqThen $ migrateDown $ single migration
97connectionString :: Char8.ByteString
97connectionString :: Char8.ByteString