Toml codec instances for JSString

Author: functora

pub/functora-witch/functora-witch.cabal

@@ -8,7 +8,7 @@ description:
 build-type:    Simple
 category:      Data
 license:       MIT
-maintainer:    Functora
+maintainer:    [email protected]
 
 source-repository head
   location:

pub/functora/functora.cabal

@@ -3,13 +3,15 @@ author:          functora
 build-type:      Simple
 category:        Data
 copyright:       functora
-description:     Custom prelude
 extra-doc-files: CHANGELOG.md
 license-file:    LICENSE
 license:         BSD-3-Clause
 maintainer:      [email protected]
 name:            functora
-synopsis:        Custom prelude
+synopsis:        A custom prelude and various libraries.
+description:
+  A custom prelude and various libraries compatible with a wide range of GHC backends, including GHCJS and WASM.
+
 version:         0.1.0.0
 homepage:
   https://github.com/functora/functora.github.io/tree/master/pub/functora
@@ -184,6 +186,9 @@ common pkg-cfg
     , optparse-applicative
     , tomland
 
+  if ((impl(ghcjs) || arch(javascript)) || os(wasi))
+    build-depends: jsaddle
+
 common pkg-web
   import:         pkg
   hs-source-dirs: src/web

pub/functora/src/cfg/Functora/CfgOrphan.hs

@@ -1,3 +1,4 @@
+{-# LANGUAGE CPP #-}
 {-# LANGUAGE UndecidableInstances #-}
 {-# OPTIONS_GHC -Wno-orphans #-}
 
@@ -16,6 +17,9 @@ import Functora.Prelude
 import qualified GHC.Generics as Generics
 import qualified Text.URI as URI
 import qualified Toml
+#if defined(__GHCJS__) || defined(ghcjs_HOST_OS) || defined(wasi_HOST_OS)
+import Data.JSString (JSString)
+#endif
 
 genericTomlCodec ::
   ( Generic a,
@@ -215,3 +219,21 @@ optsAeson =
     }
   where
     fmt = Toml.stripTypeNamePrefix $ Proxy @a
+
+#if defined(__GHCJS__) || defined(ghcjs_HOST_OS) || defined(wasi_HOST_OS)
+instance Toml.HasCodec JSString where
+  hasCodec =
+    Toml.textBy (from @JSString @Text)
+      $ pure . from @Text @JSString
+
+instance Toml.HasItemCodec JSString where
+  hasItemCodec =
+    Left
+      . Toml.mkAnyValueBiMap
+        ( \src -> do
+            txt <- Toml.matchText src
+            pure $ from @Text @JSString txt
+        )
+      $ Toml.Text
+      . from @JSString @Text
+#endif

pub/functora/src/functora-ghcjs.cabal

@@ -3,11 +3,13 @@ author:        functora
 build-type:    Simple
 category:      Data
 copyright:     functora
-description:   Custom prelude
 license:       BSD-3-Clause
 maintainer:    [email protected]
 name:          functora-ghcjs
-synopsis:      Custom prelude
+synopsis:      A custom prelude and various libraries.
+description:
+  A custom prelude and various libraries compatible with a wide range of GHC backends, including GHCJS and WASM.
+
 version:       0.1.0.0
 homepage:
   https://github.com/functora/functora.github.io/tree/master/pub/functora