diff options
| author | Joris | 2015-09-12 23:57:16 +0200 |
|---|---|---|
| committer | Joris | 2015-09-12 23:57:16 +0200 |
| commit | a48e79e2f7c1ab1ffb52b86ef9e900c75c5d023b (patch) | |
| tree | 05a613aef2d338f10bcdd394e520450656ed8f1c /src/client/Update/LoggedIn.elm | |
| parent | d87dbd1360c14df83552fd757438c23e5d7b9f9c (diff) | |
| download | budget-a48e79e2f7c1ab1ffb52b86ef9e900c75c5d023b.tar.gz budget-a48e79e2f7c1ab1ffb52b86ef9e900c75c5d023b.tar.bz2 budget-a48e79e2f7c1ab1ffb52b86ef9e900c75c5d023b.zip | |
Adding UI income read-only
Diffstat (limited to 'src/client/Update/LoggedIn.elm')
| -rw-r--r-- | src/client/Update/LoggedIn.elm | 9 |
1 files changed, 6 insertions, 3 deletions
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 } |