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

WIP: Fix issue #285

Browse source
This commit is contained in:
Arian van Putten 2015-12-06 12:40:27 +01:00
parent 60f1ddb89e
commit cf475c26c9
1 changed files with 1 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -34,6 +34,7 @@ generateVanillaJSWith opts req = "\n" <>
<> " xhr.open('" <> method <> "', " <> url <> ", true);\n" <> " xhr.open('" <> method <> "', " <> url <> ", true);\n"
<> reqheaders <> reqheaders
<> " xhr.setRequestHeader(\"Accept\",\"application/json\");\n" <> " xhr.setRequestHeader(\"Accept\",\"application/json\");\n"
<> (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"
<> " var value = JSON.parse(xhr.responseText);\n" <> " var value = JSON.parse(xhr.responseText);\n"