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/Server.elm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/client/elm/Server.elm')

diff --git a/src/client/elm/Server.elm b/src/client/elm/Server.elm
index cb65868..3a6c86a 100644
--- a/src/client/elm/Server.elm
+++ b/src/client/elm/Server.elm
@@ -43,10 +43,10 @@ deletePayment payment frequency =
   post ("payment/delete?id=" ++ (toString payment.id))
     |> Task.map (always (UL.ValidateDeletePayment payment frequency))
 
-setIncome : Time -> Int -> Task Http.Error Action
+setIncome : Time -> Int -> Task Http.Error AccountAction
 setIncome currentTime amount =
   post ("/income?amount=" ++ (toString amount))
-    |> Task.map (always (U.UpdateLoggedIn (UL.UpdateAccount (UA.UpdateIncome currentTime amount))))
+    |> Task.map (always (UA.ValidateUpdateIncome currentTime amount))
 
 signOut : Task Http.Error Action
 signOut =
-- 
cgit v1.2.3