如何在Yesod开发模式下禁用调试SQL日志

Question

在使用yesod devel进行开发时运行Yesod应用程序时，是否可以禁用[Debug#SQL]日志？

Answer 1

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

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

并用类似的东西代替它

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

使用runNoLoggingTmonad变换器是使其工作的关键。如果愿意，还可以更改迁移的日志记录设置。正如您所看到的，该应用程序使用postgreSQL。