fix frontend build

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