控制Wai日志消息：Yesod服务器未知访问日志来源排查

核心原因 #

你看到的额外日志是Yesod默认启用的请求日志中间件生成的，和你通过Wai.mkRequestLogger配置的自定义日志中间件形成了叠加。Yesod的默认脚手架或toWaiApp函数会自动添加一套基于Apache格式的请求日志，即使你手动配置了Wai的日志中间件，这套默认日志依然会生效。

解决步骤 #

1. 替换Yesod默认日志中间件 #

Yesod提供了toWaiAppPlain函数，它会生成不包含默认日志、静态文件服务等额外中间件的纯Wai应用。你需要用它替代默认的toWaiApp，再挂载自己的自定义日志中间件：

makeApplication :: App -> IO Application
makeApplication app = do
    -- 自定义日志配置
    customLogWare <- mkRequestLogger def
        { outputFormat = CustomOutputFormatWithDetails yourCustomFormat
        , destination = Logger $ appLogger app  -- 复用Yesod的日志器
        }
    -- 使用toWaiAppPlain获取无默认中间件的应用
    plainApp <- toWaiAppPlain app
    -- 仅挂载自定义日志中间件
    return $ customLogWare plainApp

2. 确认日志配置唯一性 #

检查代码中是否存在以下情况，若有则直接删除：

• 重复调用mkRequestLogger添加多套日志中间件
• 保留了Yesod默认的logWare相关代码（比如脚手架生成的logWare <- makeLogWare (appSettings app)）

3. 验证效果 #

重启服务器后发起请求，此时应该只会输出你自定义格式的日志，不再出现默认的Apache格式日志条目。

补充说明 #

如果你的应用依赖Yesod的其他默认中间件（比如静态文件服务），可以手动添加对应的中间件，示例如下：

import Yesod.Static (staticMiddleware)

-- 在挂载日志中间件后添加静态中间件
return $ customLogWare $ staticMiddleware app plainApp

内容的提问来源于stack exchange，提问作者OrenIshShalom