覆盖Yesod中的响应标头

Question

如何覆盖Yesod中以前设置的响应标头？当我使用addHeader函数时，它会添加另一个具有相同名称的头，而不是覆盖它。例如，如果一个处理函数里面我这样做：

addHeader "foo" "bar" 
addHeader "foo" "baz" 

我得到

foo: bar 
foo: baz 

，但我想只是

foo: baz 

对我来说，标题是认证令牌，它的工作方式是，如果它出现在请求中，那么我将它发回给响应。我把它作为一个中间件来实现。但是，如果它是一个登录请求，则会生成一个新的令牌，并且它将被发送而不是来自请求头的值。

Answer 1

addHeader由Writer实现。 https://www.stackage.org/haddock/lts-8.21/yesod-core-1.4.35/src/Yesod.Core.Handler.html#addHeaderInternal

这是不可能的使用addHeader。

可以通过手动使用sendWaiResponse和创建Response来实现，但是很麻烦。