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

Merge pull request #310 from arianvp/294

Browse source 
Fix #294
This commit is contained in:
Julian Arni 2016-01-07 13:00:47 +01:00
commit 3d0ae36189
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
servant-js/src/Servant/JS/Vanilla.hs
View file

@ -37,10 +37,13 @@ generateVanillaJSWith opts req = "\n" <>
<> (if isJust (req ^. reqBody) then " xhr.setRequestHeader(\"Content-Type\",\"application/json\");\n" else "") <> (if isJust (req ^. reqBody) then " xhr.setRequestHeader(\"Content-Type\",\"application/json\");\n" else "")
<> " xhr.onreadystatechange = function (e) {\n" <> " xhr.onreadystatechange = function (e) {\n"
<> " if (xhr.readyState == 4) {\n" <> " if (xhr.readyState == 4) {\n"
<> " if (xhr.status == 204 || xhr.status == 205) {\n"
<> " onSuccess();\n"
<> " } else if (xhr.status >= 200 && xhr.status < 300) {\n"
<> " var value = JSON.parse(xhr.responseText);\n" <> " var value = JSON.parse(xhr.responseText);\n"
<> " if (xhr.status == 200 || xhr.status == 201) {\n"
<> " onSuccess(value);\n" <> " onSuccess(value);\n"
<> " } else {\n" <> " } else {\n"
<> " var value = JSON.parse(xhr.responseText);\n"
<> " onError(value);\n" <> " onError(value);\n"
<> " }\n" <> " }\n"
<> " }\n" <> " }\n"