git.iko.soy/typeable/servant-reflex
on master help sign in
Merge pull request #56 from obsidiansystems/response-okay-status

Treat HTTP response statuses less than 200 as errors

commit2996dbc8e0922e29939d05ac647b897650ab64a8 authorGreg Hale <ImAlsoGreg@gmail.com> dateTue 6 Mar 2018, 20:07 (9 years ago) parent6593c1c0c74012
1 file changed+2−1
compare with master
unifiedsplit
src/Servant/Common/Req.hs+2−1
src/Servant/Common/Req.hs+2−1
@@ -380,7 +380,8 @@ evalResponse
380380 -> (tag, XhrResponse)
381381 -> ReqResult tag a
382382evalResponse decode (tag, xhr) =
383− let okStatus = _xhrResponse_status xhr < 400
383+ let status = _xhrResponse_status xhr
384+ okStatus = status >= 200 && status < 400
384385 errMsg = fromMaybe
385386 ("Empty response with error code " <>
386387 T.pack (show $ _xhrResponse_status xhr))