@@ -380,7 +380,8 @@ evalResponse
380 -> (tag, XhrResponse)
380 -> (tag, XhrResponse)
381 -> ReqResult tag a
381 -> ReqResult tag a
382evalResponse decode (tag, xhr) =
382evalResponse decode (tag, xhr) =
383− let okStatus = _xhrResponse_status xhr < 400
383+ let status = _xhrResponse_status xhr
384+ okStatus = status >= 200 && status < 400
384 errMsg = fromMaybe
385 errMsg = fromMaybe
385 ("Empty response with error code " <>
386 ("Empty response with error code " <>
386 T.pack (show $ _xhrResponse_status xhr))
387 T.pack (show $ _xhrResponse_status xhr))