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

servant-client-ghcjs: Fixed not throwing FailureResponse

Browse source
This commit is contained in:
Falco Peijnenburg 2017-10-08 19:47:44 +02:00
parent 74bde0a73d
commit 911be50df2
1 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
servant-client-ghcjs/src/Servant/Client/Internal/XhrClient.hs
View file

@ -89,7 +89,13 @@ performRequest req = do
xhr <- liftIO initXhr xhr <- liftIO initXhr
burl <- asks baseUrl burl <- asks baseUrl
liftIO $ performXhr xhr burl req liftIO $ performXhr xhr burl req
toResponse xhr resp <- toResponse xhr
let status = statusCode (responseStatusCode resp)
unless (status >= 200 && status < 300) $
throwError $ FailureResponse resp
pure resp
-- * initialization -- * initialization