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

Fix 294

Browse source
This commit is contained in:
Arian van Putten 2015-12-27 14:05:32 +01:00
parent 9cc344b95b
commit a15d1d9314
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) {\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"