diff options
| author |  Alexander Foremny <aforemny@posteo.de> | 2024-06-06 22:42:44 +0200 |
|---|---|---|
| committer | Alexander Foremny <aforemny@posteo.de> | 2024-06-06 22:42:44 +0200 |
| commit | b1a4822d5954fe02b82f2c525403c74b3920befe (patch) | |
| tree | 6a284f7ec64dd0bb3bc7ff3e1812139b3a2f3932 /frontend/app/Form/Input.hs | |
| parent | 612da78d17c575cd5ade1de62dc1a3c514129de0 (diff) | |
support optional fields
Diffstat (limited to 'frontend/app/Form/Input.hs')
| -rw-r--r-- | frontend/app/Form/Input.hs | 6 |
1 files changed, 3 insertions, 3 deletions
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_ [] $ |