From 869bab77e93e2a6c776a4b1fc35ef0fd5df22f5f Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 27 Mar 2016 17:36:33 +0200
Subject: Compute payers client side rather than server side

---
 src/client/elm/Update/LoggedIn.elm | 36 ++++++++++++++++--------------------
 1 file changed, 16 insertions(+), 20 deletions(-)

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

diff --git a/src/client/elm/Update/LoggedIn.elm b/src/client/elm/Update/LoggedIn.elm
index dfc2a1b..300c63a 100644
--- a/src/client/elm/Update/LoggedIn.elm
+++ b/src/client/elm/Update/LoggedIn.elm
@@ -71,17 +71,15 @@ updateLoggedIn model action loggedInView =
           newAdd = initAddPayment frequency
       in  case frequency of
             Punctual ->
-              let (newAccount, accountEffects) =
-                    updateAccount (Account.UpdatePayer loggedInView.account.me model.currentTime cost) loggedInView.account
-              in  ( { loggedInView
-                  | currentPage = 1
-                  , add = newAdd
-                  , account = newAccount
-                  , payments = newPayment :: loggedInView.payments
-                  , paymentsCount = loggedInView.paymentsCount + 1
-                  }
-                , Effects.map UpdateAccount accountEffects
-                )
+              ( { loggedInView
+                | currentPage = 1
+                , add = newAdd
+                , account = loggedInView.account
+                , payments = newPayment :: loggedInView.payments
+                , paymentsCount = loggedInView.paymentsCount + 1
+                }
+              , Effects.none
+              )
             Monthly ->
               ( { loggedInView
                 | add = newAdd
@@ -112,15 +110,13 @@ updateLoggedIn model action loggedInView =
           , Effects.none
           )
         Punctual ->
-          let (newAccount, accountEffects) =
-                updateAccount (Account.UpdatePayer payment.userId (Date.toTime payment.creation) -payment.cost) loggedInView.account
-          in  ( { loggedInView
-                | account = newAccount
-                , payments = deletePayment payment.id loggedInView.payments
-                , paymentsCount = loggedInView.paymentsCount - 1
-                }
-              , Effects.map UpdateAccount accountEffects
-              )
+          ( { loggedInView
+            | account = loggedInView.account
+            , payments = deletePayment payment.id loggedInView.payments
+            , paymentsCount = loggedInView.paymentsCount - 1
+            }
+          , Effects.none
+          )
 
     UpdatePage page ->
       ( { loggedInView | currentPage = page }
-- 
cgit v1.2.3