haskell-miso
diff --git a/‎Makefile‎
Lines changed: 6 additions & 0 deletions b/‎Makefile‎
Lines changed: 6 additions & 0 deletions
diff --git a/‎miso-todomvc.cabal‎
Lines changed: 11 additions & 0 deletions b/‎miso-todomvc.cabal‎
Lines changed: 11 additions & 0 deletions
diff --git a/‎src/Main.hs‎
Lines changed: 5 additions & 5 deletions b/‎src/Main.hs‎
Lines changed: 5 additions & 5 deletions
@@ -8,6 +8,12 @@ js: update-js build-js
 update:
 	wasm32-wasi-cabal update
 
+repl: update
+	wasm32-wasi-cabal repl app -finteractive --repl-options='-fghci-browser -fghci-browser-port=8080'
+
+watch:
+	ghciwatch --after-startup-ghci :main --after-reload-ghci :main --watch app/*.hs --debounce 50ms --command 'wasm32-wasi-cabal repl app -finteractive --repl-options="-fghci-browser -fghci-browser-port=8080"'
+
 build:
 	wasm32-wasi-cabal build 
 	rm -rf public
 
@@ -2,7 +2,17 @@ cabal-version:          3.0
 name:                   miso-todomvc
 version:                0.1
 
+flag interactive
+  default:
+    False
+  manual:
+    True
+
 common options
+  if flag (interactive)
+    cpp-options:
+      -DINTERACTIVE
+
   if impl(ghcjs) || arch(javascript)
     cpp-options:
       -DGHCJS_BOTH
@@ -23,6 +33,7 @@ common options
     cpp-options:
       -DVANILLA
 
+
 executable app
   import:
     options
 
@@ -30,7 +30,7 @@ import qualified Miso.CSS as CSS
 ----------------------------------------------------------------------------
 default (MisoString)
 ----------------------------------------------------------------------------
-#if defined(wasm32_HOST_ARCH)
+#ifdef WASM
 foreign export javascript "hs_start" main :: IO ()
 #endif
 ----------------------------------------------------------------------------
@@ -95,11 +95,11 @@ main = startApp (defaultEvents <> keyboardEvents) app
 app :: App Model Msg
 app = (component emptyModel updateModel viewModel)
   { mount = Just FocusOnInput
-#ifdef VANILLA
-  -- dmj: when using vanilla GHC append the styles to <head> in dev mode
+#ifdef INTERACTIVE
+  -- dmj: when using WASM repl mode append styles to <head> in dev mode
   , styles =
-      [ Href "https://cdn.jsdelivr.net/npm/todomvc-common@1.0.5/base.min.css"
-      , Href "https://cdn.jsdelivr.net/npm/todomvc-app-css@2.4.3/index.min.css"
+      [ Href "https://cdn.jsdelivr.net/npm/todomvc-common@1.0.5/base.min.css" True
+      , Href "https://cdn.jsdelivr.net/npm/todomvc-app-css@2.4.3/index.min.css" True
       ]
 #endif
   }