blob: df5c990e075f3417fb896f5cb6cb6f1e7a03d42a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
|
import GHC.JS.Prim
import GHC.JS.Foreign.Callback
import Control.Concurrent
foreign import javascript "(() => { console.log('test'); })"
js_log0 :: IO ()
foreign import javascript "((x) => { console.log(x); })"
js_log1 :: JSVal -> IO ()
foreign import javascript "((x,y) => { console.log(x); console.log(y); })"
js_log2 :: JSVal -> JSVal -> IO ()
foreign import javascript "((x,y,z) => { console.log(x); console.log(y); console.log(z); })"
js_log3 :: JSVal -> JSVal -> JSVal -> IO ()
foreign import javascript "((f) => { f(); })"
js_apply0_ :: Callback (IO ()) -> IO ()
foreign import javascript "((f,x) => { f(x); })"
js_apply1_ :: Callback (JSVal -> IO ()) -> JSVal -> IO ()
foreign import javascript "((f,x,y) => { f(x,y); })"
js_apply2_ :: Callback (JSVal -> JSVal -> IO ()) -> JSVal -> JSVal -> IO ()
foreign import javascript "((f,x,y,z) => { f(x,y,z); })"
js_apply3_ :: Callback (JSVal -> JSVal -> JSVal -> IO ()) -> JSVal -> JSVal -> JSVal -> IO ()
main :: IO ()
main = do
log0 <- syncCallback ThrowWouldBlock js_log0
log1 <- syncCallback1 ThrowWouldBlock js_log1
log2 <- syncCallback2 ThrowWouldBlock js_log2
log3 <- syncCallback3 ThrowWouldBlock js_log3
js_apply0_ log0
js_apply1_ log1 (toJSString "test1x")
js_apply2_ log2 (toJSString "test2x") (toJSString "test2y")
js_apply3_ log3 (toJSString "test3x") (toJSString "test3y") (toJSString "test3z")
log0' <- asyncCallback js_log0
log1' <- asyncCallback1 js_log1
log2' <- asyncCallback2 js_log2
log3' <- asyncCallback3 js_log3
js_apply0_ log0'
js_apply1_ log1' (toJSString "test")
js_apply2_ log2' (toJSString "test") (toJSString "test")
js_apply3_ log3' (toJSString "test") (toJSString "test") (toJSString "test")
threadDelay 1000000 -- Wait long enough for the async actions to complete
|
