use backend REST library for frontend

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 =