diff options
| author |  Alexander Foremny <aforemny@posteo.de> | 2025-02-19 17:36:34 +0100 |
|---|---|---|
| committer | Alexander Foremny <aforemny@posteo.de> | 2025-02-19 17:36:34 +0100 |
| commit | d0d1215913dbdd44b62cf584100a9db18aaf83b2 (patch) | |
| tree | dc90ef41dd679712dcd5a809560a5818ccaa7839 /frontend/app/Schema.hs | |
| parent | 1cd156c349d508f5e4638de0fc6370c30b0ac01d (diff) | |
fix frontend build
Diffstat (limited to 'frontend/app/Schema.hs')
| -rw-r--r-- | frontend/app/Schema.hs | 7 |
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 |