@@ -14,8 +14,6 @@ import Data.Aeson.Parser
1414import Data.Aeson.Types
1515import Data.Attoparsec.ByteString
1616import Data.ByteString.Lazy hiding (pack, filter, map, null)
17−import qualified Data.ByteString as BS
18−import qualified Data.ByteString.Char8 as BSC
1917import Data.String
2018import Data.String.Conversions
2119import Data.Text (Text)
@@ -84,16 +82,16 @@ reqToRequest req (BaseUrl reqScheme reqHost reqPort) =
8482 , uriPath = reqPath req
8583 }
8684
87− setrqb r = case (reqBody req) of
85+ setrqb r = case reqBody req of
8886 Nothing -> r
8987 Just (b,t) -> r { requestBody = RequestBodyLBS b
9088 , requestHeaders = requestHeaders r
9189 ++ [(hContentType, cs . show $ t)] }
9290 setQS = setQueryString $ queryTextToQuery (qs req)
9391 setheaders r = r { requestHeaders = requestHeaders r
94− ++ Prelude.map toProperHeader (headers req) }
92+ <> fmap toProperHeader (headers req) }
9593 setAccept r = r { requestHeaders = filter ((/= "Accept") . fst) (requestHeaders r)
96− ++ [("Accept", renderHeader $ reqAccept req)
94+ <> [("Accept", renderHeader $ reqAccept req)
9795 | not . null . reqAccept $ req] }
9896 toProperHeader (name, val) =
9997 (fromString name, encodeUtf8 val)
@@ -139,7 +137,7 @@ performRequest reqMethod req isWantedStatus reqHost = do
139137 Just t -> case parseAccept t of
140138 Nothing -> left $ "invalid Content-Type header: " <> cs t
141139 Just t' -> pure t'
142− return $ (statusCode status, Client.responseBody response, ct)
140+ return (statusCode status, Client.responseBody response, ct)
143141 where
144142 showStatus (Status code message) =
145143 show code ++ " - " ++ cs message