@@ -93,10 +93,8 @@ reqToRequest req (BaseUrl reqScheme reqHost reqPort) =
9393 setheaders r = r { requestHeaders = requestHeaders r
9494 ++ Prelude.map toProperHeader (headers req) }
9595 setAccept r = r { requestHeaders = filter ((/= "Accept") . fst) (requestHeaders r)
96− ++ [("Accept", BS.intercalate ", " (map renderAccept $ reqAccept req))
96+ ++ [("Accept", renderHeader $ reqAccept req)
9797 | not . null . reqAccept $ req] }
98− renderAccept :: MediaType -> BS.ByteString
99− renderAccept m = BSC.pack (show m)
10098 toProperHeader (name, val) =
10199 (fromString name, encodeUtf8 val)
102100