From a48e79e2f7c1ab1ffb52b86ef9e900c75c5d023b Mon Sep 17 00:00:00 2001
From: Joris
Date: Sat, 12 Sep 2015 23:57:16 +0200
Subject: Adding UI income read-only

---
 src/client/Update/LoggedIn.elm | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

(limited to 'src/client/Update/LoggedIn.elm')

diff --git a/src/client/Update/LoggedIn.elm b/src/client/Update/LoggedIn.elm
index 03eb137..07f3426 100644
--- a/src/client/Update/LoggedIn.elm
+++ b/src/client/Update/LoggedIn.elm
@@ -9,12 +9,12 @@ import Dict
 import Model exposing (Model)
 import Model.User exposing (UserId)
 import Model.Payment exposing (..)
-import Model.Payers exposing (..)
 import Model.View.LoggedInView exposing (..)
 import Model.View.LoggedIn.Add exposing (..)
 
 import Update.LoggedIn.Add exposing (..)
 import Update.LoggedIn.Monthly as UM
+import Update.LoggedIn.Account as UA
 
 type LoggedAction =
   UpdateAdd AddPaymentAction
@@ -25,6 +25,7 @@ type LoggedAction =
   | DeletePayment UserId Int Payments
   | UpdatePage Int Payments
   | UpdateMonthly UM.MonthlyAction
+  | UpdateAccount UA.AccountAction
 
 updateLoggedIn : Model -> LoggedAction -> LoggedInView -> LoggedInView
 updateLoggedIn model action loggedInView =
@@ -38,7 +39,7 @@ updateLoggedIn model action loggedInView =
       | payments <- payments
       , currentPage <- 1
       , add <- initAddPayment Punctual
-      , payers <- updatePayers loggedInView.payers userId cost
+      , account <- UA.updateAccount (UA.UpdatePayer userId cost) loggedInView.account
       , paymentsCount <- loggedInView.paymentsCount + 1
       }
     AddMonthlyPayment id name cost ->
@@ -53,7 +54,7 @@ updateLoggedIn model action loggedInView =
     DeletePayment userId cost payments ->
       { loggedInView
       | payments <- payments
-      , payers <- updatePayers loggedInView.payers userId -cost
+      , account <- UA.updateAccount (UA.UpdatePayer userId -cost) loggedInView.account
       , paymentsCount <- loggedInView.paymentsCount - 1
       }
     UpdatePage page payments ->
@@ -63,3 +64,5 @@ updateLoggedIn model action loggedInView =
       }
     UpdateMonthly monthlyAction ->
       { loggedInView | monthly <- UM.updateMonthly monthlyAction loggedInView.monthly }
+    UpdateAccount accountAction ->
+      { loggedInView | account <- UA.updateAccount accountAction loggedInView.account }
-- 
cgit v1.2.3