WebSocket API wrappers for Haskell

1 files changed, 23 insertions, 0 deletions

diff --git a/src/JavaScript.hs b/src/JavaScript.hs
new file mode 100644
index 0000000..7f1c0f9
--- /dev/null
+++ b/src/JavaScript.hs
@@ -0,0 +1,23 @@
+module JavaScript (
+    asEventListener,
+    addEventListener,
+
+    consoleLog,
+    consoleLogVal,
+) where
+
+import GHC.Wasm.Prim
+
+foreign import javascript "wrapper"
+    asEventListener :: (JSVal -> IO ()) -> IO JSVal
+
+foreign import javascript unsafe "$1.addEventListener($2, $3)"
+    addEventListener :: JSVal -> JSString -> JSVal -> IO ()
+
+consoleLog :: String -> IO ()
+consoleLog = js_consoleLog . toJSString
+foreign import javascript unsafe "console.log($1)"
+    js_consoleLog :: JSString -> IO ()
+
+foreign import javascript unsafe "console.log($1)"
+    consoleLogVal :: JSVal -> IO ()