git.iko.soy/typeable/servant
on master help sign in
Merge pull request #112 from haskell-servant/jkarni/content-type-performance-fix

Don't render header via String

commite2089777003991e43e3b6087e610516fb47eb372 authorAlp Mestanogullari <alpmestan@gmail.com> dateThu 4 Jun 2015, 14:23 (11 years ago) parente8f7c69fb26e13
1 file changed+1−1
compare with master
unifiedsplit
servant/src/Servant/API/ContentTypes.hs+1−1
servant/src/Servant/API/ContentTypes.hs+1−1
@@ -166,7 +166,7 @@ instance ( AllMimeRender ctyps a, IsNonEmpty ctyps
166166 handleAcceptH _ (AcceptHeader accept) val = M.mapAcceptMedia lkup accept
167167 where pctyps = Proxy :: Proxy ctyps
168168 amrs = allMimeRender pctyps val
169− lkup = fmap (\(a,b) -> (a, (cs $ show a, b))) amrs
169+ lkup = fmap (\(a,b) -> (a, (fromStrict $ M.renderHeader a, b))) amrs
170170
171171
172172--------------------------------------------------------------------------