Clickable

.dir-locals.el

@@ -0,0 +1,13 @@
+((haskell-mode
+  (haskell-process-type . ghci)
+  (haskell-process-args-ghci . ("-ferror-spans" "-fdiagnostics-color=never"))
+  (eval .
+        (let ((cwd (locate-dominating-file default-directory ".dir-locals.el")))
+          (setq
+           haskell-process-path-ghci (concat cwd "bin/ghci")
+           haskell-hoogle-server-command
+           (lambda (port)
+             (list (concat cwd "bin/hoogle") "server"
+                   "--local" "-p" (number-to-string port)))
+           lsp-haskell-server-path (concat cwd "/bin/haskell-language-server"))
+          ))))

.gitignore

@@ -1,27 +1,8 @@
-**/tags
-**/TAGS
-**/.#*
-**/dist-newstyle
-/examples/dist-newstyle
-**/*~
-**/*.kate-swp
-**/.directory
-**/.dir-locals.el
-**/.envrc
-**/.envrc-ghcjs
-/dist
-/tmp
-**/.stack-work
-**/.cabal-sandbox
-**/*.db
-**/.ghc.environment*
-/.*-env
-result
-dist
-bin
-out
+bin/**
+!bin/nix-bins
+!bin/README.md
+shell.nix
 doc
-locals.nix
+dist-newstyle
 node_modules
-package.json
-yarn.lock
+build

9.6.5.nix

@@ -0,0 +1,26 @@
+let
+  sources = {
+    nixpkgs = builtins.fetchTarball {
+      url = "https://github.com/NixOS/nixpkgs/archive/refs/tags/24.05.tar.gz";
+    };
+    ghc-wasm-meta = "gitlab:ghc/ghc-wasm-meta?host=gitlab.haskell.org&ref=455a759195e71c572e73b56d868e544176d32897";
+  };
+
+  pkgs = import sources.nixpkgs {};
+
+  haskellPackages = pkgs.haskellPackages.override {
+    overrides = final: prev: {
+      clickable = final.callCabal2nix "clickable" ./. {};
+    };
+  };
+
+  ghc-wasm-meta = builtins.getFlake sources.ghc-wasm-meta;
+in
+  pkgs.mkShell {
+    inputsFrom = [
+      haskellPackages.clickable.env
+    ];
+    nativeBuildInputs = [
+      ghc-wasm-meta.packages.x86_64-linux.default
+    ];
+  }

Clickable.hs

@@ -0,0 +1,10 @@
+{-| Fast and Lightweight Frontend library for WASM, JavaScript and
+Native GHC -}
+module Clickable (module Exports) where
+
+import Clickable.HTML as Exports
+import Clickable.DOM as Exports
+import Clickable.Element as Exports
+import Clickable.Property as Exports
+import Clickable.Internal as Exports
+import Clickable.Types as Exports

Clickable/Binary.hs

@@ -0,0 +1,31 @@
+{-# LANGUAGE GHC2021 #-}
+{-# LANGUAGE StrictData #-}
+{-# LANGUAGE BlockArguments #-}
+{-# LANGUAGE OverloadedRecordDot #-}
+{-# LANGUAGE MagicHash #-}
+{-# LANGUAGE UnboxedTuples #-}
+{-# LANGUAGE LambdaCase #-}
+{-# LANGUAGE DerivingStrategies #-}
+{-| Override `Data.Binary.Binary` instances for floating-point numbers
+-}
+module Clickable.Binary where
+
+import Data.Binary
+import Data.Binary.Get
+import Data.Binary.Put
+
+
+newtype Float64 = Float64 {unFloat64 :: Double}
+  deriving newtype (Show, Ord, Eq)
+
+instance Binary Float64 where
+  put = putDoublele . unFloat64
+  get = fmap Float64 getDoublele
+
+
+newtype Float32 = Float32 {unFloat32 :: Float}
+  deriving newtype (Show, Ord, Eq)
+
+instance Binary Float32 where
+  put = putFloatle . unFloat32
+  get = fmap Float32 getFloatle