diff options
| author | Joris | 2016-01-03 19:41:31 +0100 |
|---|---|---|
| committer | Joris | 2016-01-03 19:41:31 +0100 |
| commit | a8309988518af5bddf62d6a326d990fde4069b40 (patch) | |
| tree | 6ff9c0af27d78f8579b5c3975378a3c82899593c /src/client/elm/View/LoggedIn/Account.elm | |
| parent | 0cba27cba2b44756389d50bc113f23a2be87e978 (diff) | |
| download | budget-a8309988518af5bddf62d6a326d990fde4069b40.tar.gz budget-a8309988518af5bddf62d6a326d990fde4069b40.tar.bz2 budget-a8309988518af5bddf62d6a326d990fde4069b40.zip | |
Set focus properties to button elements
Diffstat (limited to 'src/client/elm/View/LoggedIn/Account.elm')
| -rw-r--r-- | src/client/elm/View/LoggedIn/Account.elm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/client/elm/View/LoggedIn/Account.elm b/src/client/elm/View/LoggedIn/Account.elm index 9459740..a7c20d5 100644 --- a/src/client/elm/View/LoggedIn/Account.elm +++ b/src/client/elm/View/LoggedIn/Account.elm @@ -17,7 +17,6 @@ import Model.Translations exposing (getParamMessage, getMessage) import Model.Action exposing (..) import Model.Action.LoggedInAction exposing (..) import Model.Action.AccountAction exposing (..) -import Model.Communication as Communication import Model.View.LoggedInView exposing (LoggedInView) import Model.View.LoggedIn.Account exposing (..) @@ -95,7 +94,7 @@ incomeEdition address model account edition = H.form [ case validateIncome edition.income model.translations of Ok validatedAmount -> - onSubmitPrevDefault address (ServerCommunication <| Communication.SetIncome model.currentTime validatedAmount) + onSubmitPrevDefault address (SetIncome model.currentTime validatedAmount) Err error -> onSubmitPrevDefault address (UpdateLoggedIn << UpdateAccount << UpdateEditionError <| error) , class "income" |