haskell - 在 Wai 中间件中自定义响应 header

Question

我目前正在使用wai-middleware-static为我的服务器提供自定义页面。但是，我看到我的服务器在每个页面加载时都会收到对 favicon.ico 等的请求，以及我的每一种网络字体，因此我决定检查响应上的缓存设置标题，发现没有。

wai-middleware-static 返回一个 Middleware 值，我认为这是对在每个请求上运行的中间件提供的函数的回调。有没有办法修改它以添加响应 header 来告诉浏览器缓存结果？

Answer 1

多个中间件可以通过正常的函数组合链接在一起，例如:

middleware1 . middleware2

因此，如果您有一个中间件将缓存设置添加到响应中，则应该进行设置。可能对您有帮助的基本结构是:

addCacheSettings :: Middleware
addCacheSettings innerApp request = do
    innerResponse <- innerApp request
    return $ myHelper innerResponse
  where
    myHelper :: Response -> Response
    myHelper = error "Your logic here"