diff options
| author | Joris | 2016-01-03 19:57:59 +0100 |
|---|---|---|
| committer | Joris | 2016-01-03 19:57:59 +0100 |
| commit | d22d10da342520163014dda255d5d9bd5e1a80c0 (patch) | |
| tree | 02f17aeeab9ec0f95ae8d53017e4e33de347d9d1 /src/client/elm/View | |
| parent | a8309988518af5bddf62d6a326d990fde4069b40 (diff) | |
| download | budget-d22d10da342520163014dda255d5d9bd5e1a80c0.tar.gz budget-d22d10da342520163014dda255d5d9bd5e1a80c0.tar.bz2 budget-d22d10da342520163014dda255d5d9bd5e1a80c0.zip | |
Move update income to the account update layer
Diffstat (limited to 'src/client/elm/View')
| -rw-r--r-- | src/client/elm/View/LoggedIn/Account.elm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/client/elm/View/LoggedIn/Account.elm b/src/client/elm/View/LoggedIn/Account.elm index a7c20d5..d8884f1 100644 --- a/src/client/elm/View/LoggedIn/Account.elm +++ b/src/client/elm/View/LoggedIn/Account.elm @@ -94,7 +94,7 @@ incomeEdition address model account edition = H.form [ case validateIncome edition.income model.translations of Ok validatedAmount -> - onSubmitPrevDefault address (SetIncome model.currentTime validatedAmount) + onSubmitPrevDefault address (UpdateLoggedIn << UpdateAccount <| UpdateIncome model.currentTime validatedAmount) Err error -> onSubmitPrevDefault address (UpdateLoggedIn << UpdateAccount << UpdateEditionError <| error) , class "income" |