Réécriture de l'en-tête de réponse dans Yesod

Question

Comment remplacer l'en-tête de réponse précédemment défini dans Yesod? Lorsque j'utilise la fonction addHeader, il ajoute un autre en-tête portant le même nom au lieu de l'écraser. Par exemple, si dans une fonction de gestionnaire que je fais ceci:

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

Je reçois

foo: bar 
foo: baz 

mais je veux obtenir juste

foo: baz 

Dans mon cas, l'en-tête est une authentification jeton, et cela fonctionne de telle sorte que s'il est présent dans la requête, je le renvoie dans la réponse. J'ai implémenté cela comme un middleware. Toutefois, s'il s'agit d'une demande de connexion, un nouveau jeton est généré et il doit être envoyé à la place de la valeur de l'en-tête de la demande.

Answer 1

addHeader mise en œuvre par Writer. https://www.stackage.org/haddock/lts-8.21/yesod-core-1.4.35/src/Yesod.Core.Handler.html#addHeaderInternal

Il n'est pas possible d'utiliser addHeader.

Il peut être réalisé en utilisant sendWaiResponse et en créant Response à la main, mais c'est salissant.