From cf475c26c9b1c66beafadbcbd3157ad4969b85ba Mon Sep 17 00:00:00 2001 From: Arian van Putten Date: Sun, 6 Dec 2015 12:40:27 +0100 Subject: [PATCH] WIP: Fix issue #285 --- servant-js/src/Servant/JS/Vanilla.hs | 1 + 1 file changed, 1 insertion(+) diff --git a/servant-js/src/Servant/JS/Vanilla.hs b/servant-js/src/Servant/JS/Vanilla.hs index 89ef91d5..22b29b4c 100644 --- a/servant-js/src/Servant/JS/Vanilla.hs +++ b/servant-js/src/Servant/JS/Vanilla.hs @@ -34,6 +34,7 @@ generateVanillaJSWith opts req = "\n" <> <> " xhr.open('" <> method <> "', " <> url <> ", true);\n" <> reqheaders <> " xhr.setRequestHeader(\"Accept\",\"application/json\");\n" + <> (if isJust (req ^. reqBody) then " xhr.setRequestHeader(\"Content-Type\",\"application/json\");\n" else "") <> " xhr.onreadystatechange = function (e) {\n" <> " if (xhr.readyState == 4) {\n" <> " var value = JSON.parse(xhr.responseText);\n"