From b1a4822d5954fe02b82f2c525403c74b3920befe Mon Sep 17 00:00:00 2001 From: Alexander Foremny Date: Thu, 6 Jun 2024 22:42:44 +0200 Subject: support optional fields --- frontend/app/Form/Input.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'frontend/app/Form/Input.hs') diff --git a/frontend/app/Form/Input.hs b/frontend/app/Form/Input.hs index 4b1eac8..80044ec 100644 --- 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_ [] $ -- cgit v1.2.3