require strings to be non-empty

1 files changed, 21 insertions, 13 deletions

diff --git a/frontend/app/Form/Input.hs b/frontend/app/Form/Input.hs
index 80044ec..e43651c 100644
--- a/frontend/app/Form/Input.hs
+++ b/frontend/app/Form/Input.hs
@@ -10,18 +10,26 @@ import Miso.String (fromMisoString, toMisoString)
 
 input :: String -> Form T.Text T.Text
 input label =
-  Form
-    { view = \i ->
-        [ div_ [] $
-            [ label_ [] $
-                [ text (toMisoString label),
-                  input_
-                    [ type_ "text",
-                      value_ (toMisoString i),
-                      onInput fromMisoString
+  let parse :: T.Text -> Either String T.Text
+      parse i =
+        let i' = T.strip i
+         in if T.null i' then Left "required" else Right i'
+   in Form
+        { view = \i ->
+            [ div_ [] $
+                [ label_ [] $
+                    [ text (toMisoString label),
+                      div_ [] $
+                        [ input_
+                            [ type_ "text",
+                              value_ (toMisoString i),
+                              onInput fromMisoString
+                            ],
+                          div_ [] $
+                            [either (text . toMisoString) (\_ -> text "") (parse i)]
+                        ]
                     ]
                 ]
-            ]
-        ],
-      fill = \i -> Right i
-    }
+            ],
+          fill = parse
+        }