wip

Author: functora

ghcjs/delivery-calculator/flake.nix

@@ -48,7 +48,7 @@
           out="./dist/latest"
           rm -rf "$out"
           mkdir -p "$out/static/css"
-          cp -R ./static/webfonts $out/webfonts
+          cp -R ./static/webfonts $out/static/webfonts
           cp ./static/*.png $out/static/
           cp ./static/*.woff2 $out/static/
           cp ./static/*.webmanifest $out/

ghcjs/delivery-calculator/src/App/Types.hs

@@ -321,7 +321,7 @@ pushActionQueue st =
     . atomically
     . writeTChan (st ^. #modelProducerQueue)
 
-icon :: Icon.Fa -> View Action
+icon :: Icon.Fa -> View action
 icon = Icon.icon
 
 vsn :: Unicode

ghcjs/delivery-calculator/src/Main.hs

@@ -52,7 +52,7 @@ main =
             update = updateModel,
             Miso.view = viewModel,
             subs = mempty,
-            events = mempty,
+            events = defaultEvents,
             initialAction = InitUpdate mSt,
             mountPoint = Nothing,
             logLevel = Off

ghcjs/miso-functora/src/Functora/Miso/Widgets/Icon.hs

@@ -20,7 +20,7 @@ data Fa
   | FaHeart
   | FaPrint
   | FaDownload
-  | FaShareNodes
+  | FaShare
   deriving stock (Eq, Ord, Show, Read, Data, Generic, Enum, Bounded)
 
 instance Icon Fa where
@@ -35,4 +35,4 @@ instance Icon Fa where
   fav = FaHeart
   print = FaPrint
   download = FaDownload
-  share = FaShareNodes
+  share = FaShare