@@ -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--------------------------------------------------------------------------