From 18951b0de7fdc4e99559ba75b34fc330a1eebd56 Mon Sep 17 00:00:00 2001
From: Sibi Prabakaran <sibi@psibi.in>
Date: Thu, 13 Jul 2017 12:42:30 +0530
Subject: [PATCH] Update the replace logic to obey proper ordering

---
 yesod-core/Yesod/Core/Handler.hs | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/yesod-core/Yesod/Core/Handler.hs b/yesod-core/Yesod/Core/Handler.hs
index 70f6d1e4..e98fee17 100644
--- a/yesod-core/Yesod/Core/Handler.hs
+++ b/yesod-core/Yesod/Core/Handler.hs
@@ -809,9 +809,8 @@ replaceOrAddHeader a b =
     replaceHeader header endo =
       let allHeaders :: [Header] = appEndo endo []
       in Endo
-           (\y ->
-              (header : y) ++
-              filter (\x -> not (sameHeaderName x header)) allHeaders)
+           (\rest ->
+              header : filter (\x -> not (sameHeaderName x header)) allHeaders ++ rest)
 
 -- | Set the Cache-Control header to indicate this response should be cached
 -- for the given number of seconds.