haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Update the replace logic to obey proper ordering

Browse Source
This commit is contained in:
Sibi Prabakaran 2017-07-13 12:42:30 +05:30
parent 8416bb6569
commit 18951b0de7
No known key found for this signature in database
GPG Key ID: D19E3E0EBB557613
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
yesod-core/Yesod/Core/Handler.hs
View File

@ -809,9 +809,8 @@ replaceOrAddHeader a b =
replaceHeader header endo = replaceHeader header endo =
let allHeaders :: [Header] = appEndo endo [] let allHeaders :: [Header] = appEndo endo []
in Endo in Endo
(\y -> (\rest ->
(header : y) ++ header : filter (\x -> not (sameHeaderName x header)) allHeaders ++ rest)
filter (\x -> not (sameHeaderName x header)) allHeaders)
-- | Set the Cache-Control header to indicate this response should be cached -- | Set the Cache-Control header to indicate this response should be cached
-- for the given number of seconds. -- for the given number of seconds.