module Language.Javascript.JSaddle.Wasm.Internal
  ( run,
    runWorker,
    JSVal,
  )
where

import Language.Javascript.JSaddle.Types (JSM)

run :: JSM () -> IO ()
run :: JSM () -> IO ()
run JSM ()
_ =
  String -> IO ()
forall a. String -> IO a
forall (m :: * -> *) a. MonadFail m => String -> m a
fail String
"Language.Javascript.JSaddle.Wasm.run: only works on WASM backend"

runWorker :: JSM () -> JSVal -> IO ()
runWorker :: JSM () -> JSVal -> IO ()
runWorker JSM ()
_ JSVal
_ =
  String -> IO ()
forall a. String -> IO a
forall (m :: * -> *) a. MonadFail m => String -> m a
fail String
"Language.Javascript.JSaddle.Wasm.runWorker: only works on WASM backend"

data JSVal