blob: 7f1c0f980ade1d23dd02fcfaafda359627a7ddc2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
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 ()
|