diff options
| author |  Alexander Foremny <aforemny@posteo.de> | 2024-12-20 21:18:31 +0100 |
|---|---|---|
| committer | Alexander Foremny <aforemny@posteo.de> | 2025-02-19 19:02:13 +0100 |
| commit | eacb4c9653df0112e6921f8fa35922284773fec5 (patch) | |
| tree | 287de1f78b089621200df9901139d9abedf3fba6 /frontend/app/Form/Input.hs | |
| parent | 1af7db8185394e9fd743e9e127c62a1837773ab4 (diff) | |
style form
Diffstat (limited to 'frontend/app/Form/Input.hs')
| -rw-r--r-- | frontend/app/Form/Input.hs | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/frontend/app/Form/Input.hs b/frontend/app/Form/Input.hs index 3539e96..0b4f1ca 100644 --- a/frontend/app/Form/Input.hs +++ b/frontend/app/Form/Input.hs @@ -120,7 +120,9 @@ inputNumber label = let parse :: MisoString -> Either MisoString Double parse i = let i' = strip i - in if Miso.String.null i' then Left "required" else Right (read (fromMisoString i')) + in if Miso.String.null i' + then Left "required" + else Right (read (fromMisoString i')) in Form { view = \i -> [ div_ [] $ @@ -149,7 +151,7 @@ inputText label = in if Miso.String.null i' then Left "required" else Right i' in Form { view = \i -> - [ div_ [] $ + [ div_ [class_ "input text"] $ [ label_ [] $ [ text label, div_ [] $ @@ -158,7 +160,7 @@ inputText label = value_ i, onInput id ], - div_ [] $ + div_ [ class_ "error-helper" ] $ [either text (\_ -> text "") (parse i)] ] ] |