diff options
author | Joris | 2017-04-02 17:51:12 +0200 |
---|---|---|
committer | Joris | 2017-04-02 21:07:08 +0200 |
commit | 5c110716cfda6e616a795edd12f2012b132dca9f (patch) | |
tree | 71c3d04780302edf0648bec1cd914757cdbb2883 /src/client/View/Form.elm | |
parent | 64ff4707fdcd81c27c6be9903c3c82bc543ef016 (diff) | |
download | budget-5c110716cfda6e616a795edd12f2012b132dca9f.tar.gz budget-5c110716cfda6e616a795edd12f2012b132dca9f.tar.bz2 budget-5c110716cfda6e616a795edd12f2012b132dca9f.zip |
Add a chart on payments by month by categories
Diffstat (limited to 'src/client/View/Form.elm')
-rw-r--r-- | src/client/View/Form.elm | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/src/client/View/Form.elm b/src/client/View/Form.elm index 7a4965d..977ca0a 100644 --- a/src/client/View/Form.elm +++ b/src/client/View/Form.elm @@ -9,6 +9,7 @@ module View.Form exposing import Html exposing (..) import Html.Attributes exposing (..) import Html.Events exposing (..) +import Maybe.Extra as Maybe import FontAwesome import View.Color as Color @@ -24,8 +25,6 @@ import LoggedData exposing (LoggedData) import Model.Translations as Translations exposing (Translations) -import Utils.Maybe exposing (isJust) - textInput : Translations -> Form String a -> String -> String -> Html Form.Msg textInput translations form formName fieldName = let field = Form.getFieldAsString fieldName form @@ -33,13 +32,13 @@ textInput translations form formName fieldName = in div [ classList [ ("textInput", True) - , ("error", isJust field.liveError) + , ("error", Maybe.isJust field.liveError) ] ] [ Input.textInput field [ id fieldId - , classList [ ("filled", isJust field.value) ] + , classList [ ("filled", Maybe.isJust field.value) ] , value (Maybe.withDefault "" field.value) ] , label @@ -60,7 +59,7 @@ colorInput translations form formName fieldName = in div [ classList [ ("colorInput", True) - , ("error", isJust field.liveError) + , ("error", Maybe.isJust field.liveError) ] ] [ label @@ -79,7 +78,7 @@ radioInputs translations form formName radioName fieldNames = in div [ classList [ ("radioGroup", True) - , ("error", isJust field.liveError) + , ("error", Maybe.isJust field.liveError) ] ] [ div @@ -115,7 +114,7 @@ selectInput translations form formName selectName options = in div [ classList [ ("selectInput", True) - , ("error", isJust field.liveError) + , ("error", Maybe.isJust field.liveError) ] ] [ label |