Compute payers client side rather than server side

1 files changed, 3 insertions, 20 deletions

diff --git a/src/client/elm/Update/LoggedIn/Account.elm b/src/client/elm/Update/LoggedIn/Account.elm
index 1773b9a..233efa9 100644
--- a/src/client/elm/Update/LoggedIn/Account.elm
+++ b/src/client/elm/Update/LoggedIn/Account.elm
@@ -10,7 +10,6 @@ import Effects exposing (Effects)
 
 import Server
 
-import Model.Payer exposing (updatePayers)
 import Model.Action.AccountAction exposing (..)
 import Model.View.LoggedIn.Account exposing (..)
 
@@ -28,11 +27,6 @@ updateAccount action account =
       , Effects.none
       )
 
-    UpdatePayer userId creation amountDiff ->
-      ( { account | payers = updatePayers account.payers userId creation amountDiff }
-      , Effects.none
-      )
-
     ToggleIncomeEdition ->
       ( { account | incomeEdition =
           if isJust account.incomeEdition
@@ -67,25 +61,14 @@ updateAccount action account =
     UpdateIncome currentTime amount ->
       ( account
       , Server.setIncome currentTime amount
-          |> Task.map (always (ValidateUpdateIncome currentTime amount))
+          |> Task.map (\incomeId -> (ValidateUpdateIncome incomeId currentTime amount))
           |> flip Task.onError (always <| Task.succeed NoOp)
           |> Effects.task
       )
 
-    ValidateUpdateIncome currentTime amount ->
+    ValidateUpdateIncome incomeId currentTime amount ->
       ( { account
-        | payers =
-            account.payers
-              |> Dict.update account.me (\mbPayer ->
-                case mbPayer of
-                  Just payer ->
-                    Just
-                      { payer
-                      | incomes = payer.incomes ++ [{ creation = currentTime, amount = amount }]
-                      }
-                  Nothing ->
-                    Nothing
-              )
+        | incomes = Dict.insert incomeId { userId = account.me, creation = currentTime, amount = amount } account.incomes
         , incomeEdition = Nothing
         }
       , Effects.none