From db7fa8334097903b2775c98cbb0d548c9e386fd6 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roman=20Smr=C5=BE?= Date: Sat, 26 Apr 2025 20:25:06 +0200 Subject: WebSocket API wrappers for Haskell --- src/JavaScript.hs | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) create mode 100644 src/JavaScript.hs (limited to 'src/JavaScript.hs') 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 () -- cgit v1.2.3