Add Miso

Author: georgefst

.gitignore

@@ -18,6 +18,7 @@ gen
 del
 static/prod.*
 Config/client_session_key.aes
+static/miso
 
 # Ignore locally checked out IHP version
 IHP

.hie-bios

@@ -0,0 +1,10 @@
+#!/bin/sh
+make print-ghc-options GHC_RTS_FLAGS='' | tr ' ' '\n' > "$HIE_BIOS_OUTPUT"
+echo "$HIE_BIOS_ARG" >> "$HIE_BIOS_OUTPUT"
+find . \
+    -path './miso' -prune -o \
+    -path './dist*' -prune -o \
+    -path './Setup.hs' -prune -o \
+    -name '*.hs' \
+    -print \
+    >> "$HIE_BIOS_OUTPUT"

Layout.hs.patch

@@ -0,0 +1,10 @@
+--- Web/View/Layout.hs   2022-01-15 10:05:24.712496967 +0100
++++ Layout.hs  2022-01-15 10:06:30.321569568 +0100
+@@ -54,6 +54,7 @@
+         <script src={assetPath "/helpers.js"}></script>
+         <script src={assetPath "/ihp-auto-refresh.js"}></script>
+         <script src={assetPath "/app.js"}></script>
++        <script src={assetPath "/miso/index.js"} type="module"></script>
+     |]
+
+ devScripts :: Html

Makefile

@@ -12,6 +12,18 @@ JS_FILES += ${IHP}/static/vendor/morphdom-umd.min.js
 JS_FILES += ${IHP}/static/vendor/turbolinks.js
 JS_FILES += ${IHP}/static/vendor/turbolinksInstantClick.js
 JS_FILES += ${IHP}/static/vendor/turbolinksMorphdom.js
+JS_FILES += static/miso/index.js
+JS_FILES += static/miso/ghc_wasm_jsffi.js
 
 include ${IHP}/Makefile.dist
 
+static/miso/index.js:
+	cp miso/index.js static/miso/
+
+.ONESHELL:
+static/miso/ghc_wasm_jsffi.js:
+	wasm32-wasi-cabal build Frontend
+	hs_wasm_path=$(shell wasm32-wasi-cabal list-bin Frontend)
+	hs_wasm_libdir=$(shell wasm32-wasi-ghc --print-libdir)
+	"$$hs_wasm_libdir"/post-link.mjs --input "$$hs_wasm_path" --output static/miso/ghc_wasm_jsffi.js
+	cp "$$hs_wasm_path" static/miso/bin.wasm

Welcome.hs.patch

@@ -0,0 +1,10 @@
+--- Web/View/Static/Welcome.hs	2021-01-21 11:34:59.524263194 +0100
++++ Welcome.hs	2021-01-21 11:35:42.646954932 +0100
+@@ -14,6 +14,9 @@
+                   <h2 style="margin-top: 0; margin-bottom: 0rem; font-weight: 900; font-size: 3rem">
+                       It's working!
+                   </h2>
++                  <div id="miso"></div>
+ 
+                   <p style="margin-top: 1rem; font-size: 1.75rem; font-weight: 600; color:hsla(196, 13%, 80%, 1)">
+                      Your new application is up and running.

cabal.project

@@ -0,0 +1,12 @@
+optional-packages: miso
+
+if arch(wasm32)
+  -- The global config for Wasm Cabal adds `:override` for `head.hackage`, which is often not what we want:
+  -- https://gitlab.haskell.org/haskell-wasm/ghc-wasm-meta/-/issues/9#note_609714
+  active-repositories: :rest, head.hackage.ghc.haskell.org
+
+  -- https://github.com/haskellari/splitmix/pull/73
+  source-repository-package
+    type: git
+    location: https://github.com/amesgen/splitmix
+    tag: cea9e31bdd849eb0c17611bb99e33d590e126164

flake.lock

@@ -5,6 +5,7 @@
         flake-parts.follows = "ihp/flake-parts";
         devenv.follows = "ihp/devenv";
         systems.follows = "ihp/systems";
+        ghc-wasm-meta.url = "gitlab:haskell-wasm/ghc-wasm-meta?host=gitlab.haskell.org";
     };
 
     outputs = inputs@{ self, nixpkgs, ihp, flake-parts, systems, ... }:
@@ -13,13 +14,14 @@
             systems = import systems;
             imports = [ ihp.flakeModules.default ];
 
-            perSystem = { pkgs, ... }: {
+            perSystem = { pkgs, system, ... }: {
                 ihp = {
                     # appName = "app"; # Available with v1.4 or latest master
                     enable = true;
                     projectPath = ./.;
                     packages = with pkgs; [
                         # Native dependencies, e.g. imagemagick
+                        inputs.ghc-wasm-meta.packages.${system}.all_9_10
                     ];
                     haskellPackages = p: with p; [
                         # Haskell dependencies go here
@@ -43,6 +45,7 @@
                     processes = {
                         # Uncomment if you use tailwindcss.
                         # tailwind.exec = "tailwindcss -c tailwind/tailwind.config.js -i ./tailwind/app.css -o static/app.css --watch=always";
+                        frontend.exec = "./watch-frontend";
                     };
                 };
             };

flake.nix

@@ -1,4 +1,13 @@
 # Used by haskell-language-server to find GHC settings
 cradle:
-    bios:
-        shell: "$IHP/.hie-bios"
+  multi:
+    - path: "./miso"
+      config:
+        cradle:
+          cabal:
+            component: "exe:Frontend"
+    - path: "."
+      config:
+        cradle:
+          bios:
+            shell: "./.hie-bios"