fixing ghcjs#64

athanclark · Jul 31, 2021 · acd1aa0 · acd1aa0
1 parent 376df8e
commit acd1aa0
Showing 1 changed file with 7 additions and 6 deletions.
diff --git a/jsaddle-warp/src/Language/Javascript/JSaddle/WebSockets.hs b/jsaddle-warp/src/Language/Javascript/JSaddle/WebSockets.hs
@@ -225,12 +225,13 @@ jsaddleJs' jsaddleUri refreshOnLoad = "\
     \            }\n\
     \\n\
     \ " <> runBatch (\a -> "ws.send(JSON.stringify(" <> a <> "));")
-              (Just (\a -> "(function(){\n\
-                  \                       var xhr = new XMLHttpRequest();\n\
-                  \                       xhr.open('POST', '" <> fromMaybe "" jsaddleUri <> "/sync/'+syncKey, false);\n\
-                  \                       xhr.setRequestHeader(\"Content-type\", \"application/json\");\n\
-                  \                       xhr.send(JSON.stringify(" <> a <> "));\n\
-                  \                       return JSON.parse(xhr.response);})()")) <> "\
+--              (Just (\a -> "(function(){\n\
+--                  \                       var xhr = new XMLHttpRequest();\n\
+--                  \                       xhr.open('POST', '" <> fromMaybe "" jsaddleUri <> "/sync/'+syncKey, false);\n\
+--                  \                       xhr.setRequestHeader(\"Content-type\", \"application/json\");\n\
+--                  \                       xhr.send(JSON.stringify(" <> a <> "));\n\
+--                  \                       return JSON.parse(xhr.response);})()")) <> "\
+              Nothing <> "\
     \        };\n\
     \    };\n\
     \    ws0.onerror = function() {\n\