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