Use JSaddle.Warp.debug when run from GHCI (#770)

* Use `JSaddle.Warp.debug` when run from GHCI * Fix GHCJS runner * Move import
dmjio · Feb 21, 2025 · cada710 · cada710
1 parent ff4f759
commit cada710
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/src/Miso/Runner.hs b/src/Miso/Runner.hs
@@ -1,10 +1,12 @@
 {-# LANGUAGE CPP #-}
+{-# LANGUAGE LambdaCase #-}
 module Miso.Runner (run) where
 
 #if defined(wasm32_HOST_ARCH)
 import qualified Language.Javascript.JSaddle.Wasm as J
 #else
 import qualified Language.Javascript.JSaddle.Warp as J
+import           System.Environment
 #endif
 
 import           Language.Javascript.JSaddle
@@ -15,5 +17,11 @@ run :: JSM () -> IO ()
 run = J.run
 #else
 run :: JSM () -> IO ()
+#ifndef ghcjs_HOST_OS
+run x = getProgName >>= \case
+    "<interactive>" -> J.debug 8008 x
+    _ -> J.run 8008 x
+#else
 run = J.run 8008
 #endif
+#endif