diff options
Diffstat (limited to 'testsuite/tests/javascript/js-callback04.hs')
| -rw-r--r-- | testsuite/tests/javascript/js-callback04.hs | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/testsuite/tests/javascript/js-callback04.hs b/testsuite/tests/javascript/js-callback04.hs new file mode 100644 index 0000000000..0aaffabc19 --- /dev/null +++ b/testsuite/tests/javascript/js-callback04.hs @@ -0,0 +1,16 @@ +import GHC.JS.Prim +import GHC.JS.Foreign.Callback + +foreign import javascript "(() => { console.log('javascript'); })" + js_log :: IO () + +foreign import javascript "((f) => { f(); })" + js_apply0_ :: Callback (IO ()) -> IO () + +main :: IO () +main = do + logH <- syncCallback ThrowWouldBlock (putStrLn "haskell") + logJ <- syncCallback ThrowWouldBlock js_log + + js_apply0_ logH + js_apply0_ logJ |