haskell - 在 Yesod 中覆盖响应 header

Question

如何覆盖之前在 Yesod 中设置的响应 header ？当我使用 addHeader函数，它会添加另一个具有相同名称的 header 而不是覆盖它。例如，如果在处理程序函数内，我会这样做:

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

我明白了

foo: bar
foo: baz

但我只想得到

foo: baz

在我的例子中， header 是一个身份验证 token ，它的工作方式是，如果它出现在请求中，那么我会在响应中发回它。我将其实现为中间件。但是，如果是登录请求，则会生成一个新 token ，并且应该发送它而不是请求 header 中的值。

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，但这很困惑。