aboutsummaryrefslogtreecommitdiffstats
path: root/frontend/app/Schema.hs
diff options
context:
space:
mode:
authorLibravatar Alexander Foremny <aforemny@posteo.de>2025-02-19 17:36:34 +0100
committerLibravatar Alexander Foremny <aforemny@posteo.de>2025-02-19 17:36:34 +0100
commitd0d1215913dbdd44b62cf584100a9db18aaf83b2 (patch)
treedc90ef41dd679712dcd5a809560a5818ccaa7839 /frontend/app/Schema.hs
parent1cd156c349d508f5e4638de0fc6370c30b0ac01d (diff)
fix frontend build
Diffstat (limited to 'frontend/app/Schema.hs')
-rw-r--r--frontend/app/Schema.hs7
1 files changed, 2 insertions, 5 deletions
diff --git a/frontend/app/Schema.hs b/frontend/app/Schema.hs
index b1618d3..13f37b3 100644
--- a/frontend/app/Schema.hs
+++ b/frontend/app/Schema.hs
@@ -6,9 +6,6 @@ module Schema
)
where
-#ifdef ghcjs_HOST_OS
-import Data.Text qualified as T
-#endif
import Control.Applicative ((<|>))
import Data.Aeson qualified as A
import Data.Aeson.Key qualified as AK
@@ -20,7 +17,7 @@ import Data.Scientific (fromFloatDigits)
import Data.Set qualified as S
import Form qualified as F
import Miso
-import Miso.String (MisoString, fromMisoString, intercalate, toMisoString)
+import Miso.String (MisoString, fromMisoString, toMisoString)
import Route
data Schema = Schema
@@ -45,7 +42,7 @@ instance A.FromJSON Schema where
#ifdef ghcjs_HOST_OS
instance A.FromJSONKey MisoString where
- parseJSON = fromMisoString @T.Text <$> parseJSON
+ fromJSONKey = fromMisoString <$> A.fromJSONKey
#endif
data Property