@@ -390,7 +390,8 @@ evalResponse
390390 -> (tag, XhrResponse)
391391 -> ReqResult tag a
392392evalResponse decodeRes (tag, xhr) =
393− let okStatus = _xhrResponse_status xhr < 400
393+ let status = _xhrResponse_status xhr
394+ okStatus = status >= 200 && status < 400
394395 errMsg = fromMaybe
395396 ("Empty response with error code " <>
396397 T.pack (show $ _xhrResponse_status xhr))