aboutsummaryrefslogtreecommitdiffstats
path: root/frontend/app/Form/Internal.hs
diff options
context:
space:
mode:
Diffstat (limited to 'frontend/app/Form/Internal.hs')
-rw-r--r--frontend/app/Form/Internal.hs8
1 files changed, 4 insertions, 4 deletions
diff --git a/frontend/app/Form/Internal.hs b/frontend/app/Form/Internal.hs
index 2274c63..35d59e7 100644
--- a/frontend/app/Form/Internal.hs
+++ b/frontend/app/Form/Internal.hs
@@ -6,12 +6,12 @@ module Form.Internal
)
where
-import Data.Text qualified as T
import Miso
+import Miso.String (MisoString, null, strip)
data Form i o = Form
{ view :: i -> [View i],
- fill :: i -> Either String o
+ fill :: i -> Either MisoString o
}
instance Functor (Form i) where
@@ -63,8 +63,8 @@ runForm form i =
class IsEmpty i where
isEmpty :: i -> Bool
-instance IsEmpty T.Text where
- isEmpty = T.null . T.strip
+instance IsEmpty MisoString where
+ isEmpty = Miso.String.null . strip
optional :: (IsEmpty i) => Form i o -> Form i (Maybe o)
optional form =