From d22d10da342520163014dda255d5d9bd5e1a80c0 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 3 Jan 2016 19:57:59 +0100
Subject: Move update income to the account update layer

---
 src/client/elm/View/LoggedIn/Account.elm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/client/elm/View/LoggedIn')

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"
-- 
cgit v1.2.3