在Application.hs中查找类似以下内容的内容

pool <-
    flip runLoggingT logFunc $
      createPostgresqlPool
        (pgConnStr $ appDatabaseConf appSettings)
        (pgPoolSize $ appDatabaseConf appSettings)

然后换成这样的东西

pool <-
    runNoLoggingT $
      createPostgresqlPool
        (pgConnStr $ appDatabaseConf appSettings)
        (pgPoolSize $ appDatabaseConf appSettings)

使用runNoLoggingT monad transformer是使其工作的关键。如果愿意，您还可以更改迁移的日志设置。正如您所看到的，应用程序使用PostgreSQL。
问候
尤索