From 617591aa4e04a3f2745c8e3cb8beacd917b4d39b Mon Sep 17 00:00:00 2001 From: Sibi Prabakaran Date: Fri, 14 Jul 2017 13:44:21 +0530 Subject: [PATCH] Do case insensitive equality on header name --- yesod-core/Yesod/Core/Handler.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/yesod-core/Yesod/Core/Handler.hs b/yesod-core/Yesod/Core/Handler.hs index 1bda5fc6..3b1b50ed 100644 --- a/yesod-core/Yesod/Core/Handler.hs +++ b/yesod-core/Yesod/Core/Handler.hs @@ -208,7 +208,7 @@ import Control.Monad.Trans.Class (lift) import Data.Aeson (ToJSON(..)) import qualified Data.Text as T -import Data.Text.Encoding (decodeUtf8With, encodeUtf8) +import Data.Text.Encoding (decodeUtf8With, encodeUtf8, decodeUtf8) import Data.Text.Encoding.Error (lenientDecode) import qualified Data.Text.Lazy as TL import Text.Blaze.Html.Renderer.Utf8 (renderHtml) @@ -803,7 +803,7 @@ replaceOrAddHeader a b = repHeader = Header (encodeUtf8 a) (encodeUtf8 b) sameHeaderName :: Header -> Header -> Bool - sameHeaderName (Header n1 _) (Header n2 _) = n1 == n2 + sameHeaderName (Header n1 _) (Header n2 _) = T.toLower (decodeUtf8 n1) == T.toLower (decodeUtf8 n2) sameHeaderName _ _ = False replaceIndividualHeader :: [Header] -> [Header]