diff options
| author | Joris | 2015-10-04 20:48:32 +0200 |
|---|---|---|
| committer | Joris | 2015-10-04 20:48:32 +0200 |
| commit | 8c24464a4bd0a486cd0ddf846d3b5a323a7aaa9a (patch) | |
| tree | cdd1bb79846b3d8865d833a122152528b03a4746 /src/client/Model/View/LoggedInView.elm | |
| parent | 303dfd66c6434e19ba226a133a35a74a557b3e93 (diff) | |
| download | budget-8c24464a4bd0a486cd0ddf846d3b5a323a7aaa9a.tar.gz budget-8c24464a4bd0a486cd0ddf846d3b5a323a7aaa9a.tar.bz2 budget-8c24464a4bd0a486cd0ddf846d3b5a323a7aaa9a.zip | |
Using incomes to compute a fair computation to designate the payer
Diffstat (limited to 'src/client/Model/View/LoggedInView.elm')
| -rw-r--r-- | src/client/Model/View/LoggedInView.elm | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/src/client/Model/View/LoggedInView.elm b/src/client/Model/View/LoggedInView.elm index 12a7294..122c4be 100644 --- a/src/client/Model/View/LoggedInView.elm +++ b/src/client/Model/View/LoggedInView.elm @@ -5,7 +5,7 @@ module Model.View.LoggedInView import Model.User exposing (Users, UserId) import Model.Payment exposing (Payments) -import Model.Payers exposing (Payers) +import Model.Payer exposing (Payers) import Model.View.LoggedIn.Add exposing (..) import Model.View.LoggedIn.Edition exposing (..) import Model.View.LoggedIn.Monthly exposing (..) @@ -13,7 +13,6 @@ import Model.View.LoggedIn.Account exposing (..) type alias LoggedInView = { users : Users - , me : UserId , add : AddPayment , monthly : Monthly , account : Account @@ -23,13 +22,12 @@ type alias LoggedInView = , currentPage : Int } -initLoggedInView : Users -> UserId -> Payments -> Payments -> Int -> Payers -> Maybe Int -> LoggedInView -initLoggedInView users me monthlyPayments payments paymentsCount payers income = +initLoggedInView : Users -> UserId -> Payments -> Payments -> Int -> Payers -> LoggedInView +initLoggedInView users me monthlyPayments payments paymentsCount payers = { users = users - , me = me , add = initAddPayment Punctual , monthly = initMonthly monthlyPayments - , account = initAccount payers income + , account = initAccount me payers , payments = payments , paymentsCount = paymentsCount , paymentEdition = Nothing |