@@ -157,7 +157,7 @@ performRequest reqMethod req isWantedStatus reqHost = do
157157 Right response -> do
158158 let status = Client.responseStatus response
159159 body = Client.responseBody response
160− headers = Client.responseHeaders response
160+ hrds = Client.responseHeaders response
161161 status_code = statusCode status
162162 ct <- case lookup "Content-Type" $ Client.responseHeaders response of
163163 Nothing -> pure $ "application"//"octet-stream"
@@ -166,19 +166,19 @@ performRequest reqMethod req isWantedStatus reqHost = do
166166 Just t' -> pure t'
167167 unless (isWantedStatus status_code) $
168168 left $ FailureResponse status ct body
169− return (status_code, body, ct, headers, response)
169+ return (status_code, body, ct, hrds, response)
170170
171171
172172performRequestCT :: MimeUnrender ct result =>
173173 Proxy ct -> Method -> Req -> [Int] -> BaseUrl -> EitherT ServantError IO ([HTTP.Header], result)
174174performRequestCT ct reqMethod req wantedStatus reqHost = do
175175 let acceptCT = contentType ct
176− (_status, respBody, respCT, headers, _response) <-
176+ (_status, respBody, respCT, hrds, _response) <-
177177 performRequest reqMethod (req { reqAccept = [acceptCT] }) (`elem` wantedStatus) reqHost
178178 unless (matches respCT (acceptCT)) $ left $ UnsupportedContentType respCT respBody
179179 case mimeUnrender ct respBody of
180180 Left err -> left $ DecodeFailure err respCT respBody
181− Right val -> return (headers, val)
181+ Right val -> return (hrds, val)
182182
183183performRequestNoBody :: Method -> Req -> [Int] -> BaseUrl -> EitherT ServantError IO ()
184184performRequestNoBody reqMethod req wantedStatus reqHost = do