From 358f7691e5638d4f0de3a9472422a38a78614234 Mon Sep 17 00:00:00 2001 From: "Julian K. Arni" Date: Thu, 4 Jun 2015 14:28:28 +0200 Subject: [PATCH] Don't render header via String --- servant/src/Servant/API/ContentTypes.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/servant/src/Servant/API/ContentTypes.hs b/servant/src/Servant/API/ContentTypes.hs index a9966d24..cf882dfc 100644 --- a/servant/src/Servant/API/ContentTypes.hs +++ b/servant/src/Servant/API/ContentTypes.hs @@ -166,7 +166,7 @@ instance ( AllMimeRender ctyps a, IsNonEmpty ctyps handleAcceptH _ (AcceptHeader accept) val = M.mapAcceptMedia lkup accept where pctyps = Proxy :: Proxy ctyps amrs = allMimeRender pctyps val - lkup = fmap (\(a,b) -> (a, (cs $ show a, b))) amrs + lkup = fmap (\(a,b) -> (a, (fromStrict $ M.renderHeader a, b))) amrs --------------------------------------------------------------------------