diff options
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)] ] ] |