checkMigration :: IO ()
checkMigration = runStderrLoggingT $ do
  withPostgresqlConn "host=localhost user=postgres" $ \(conn :: SqlBackend) -> do
    runReaderT (printMigration migrateAll) conn
checkMigration :: IO ()
checkMigration = runStderrLoggingT $ do
  withPostgresqlConn "host=localhost user=postgres" $ \(conn :: SqlBackend) -> do
    runReaderT (printMigration migrateAll) conn
checkMigration = runStderrLoggingT $ do
  withPostgresqlConn "host=localhost user=postgres" $ \(conn :: SqlBackend) -> do
    runReaderT (printMigration migrateAll) conn