support optional fields

2024-06-06 22:42:44 +02:00
parent 612da78d17
commit b1a4822d59
4 changed files with 37 additions and 10 deletions
--- a/frontend/app/Form/Input.hs
+++ b/frontend/app/Form/Input.hs
@@ -1,5 +1,5 @@
 module Form.Input
-  ( string,
+  ( input,
  )
 where

@@ -8,8 +8,8 @@ import Form.Internal
 import Miso
 import Miso.String (fromMisoString, toMisoString)

-string :: String -> Form T.Text T.Text
-string label =
+input :: String -> Form T.Text T.Text
+input label =
  Form
    { view = \i ->
        [ div_ [] $