eeva/servant
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Update servant-client

Browse Source
This commit is contained in:
Nickolay Kudasov 2016-01-20 02:46:08 +03:00 committed by Julian K. Arni
parent 734e8a00d4
commit 372a6c7753
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
servant-client/src/Servant/Common/Req.hs
View File

@ -186,7 +186,8 @@ performRequestCT ct reqMethod req manager reqHost = do
(_status, respBody, respCT, hdrs, _response) <-
performRequest reqMethod (req { reqAccept = [acceptCT] }) manager reqHost
unless (matches respCT (acceptCT)) $ throwE $ UnsupportedContentType respCT respBody
case mimeUnrender ct respBody of
unrenderResult <- liftIO . runExceptT $ mimeUnrender ct respBody
case unrenderResult of
Left err -> throwE $ DecodeFailure err respCT respBody
Right val -> return (hdrs, val)