diff options
Diffstat (limited to 'src/client/Model/View/LoggedView.elm')
-rw-r--r-- | src/client/Model/View/LoggedView.elm | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/src/client/Model/View/LoggedView.elm b/src/client/Model/View/LoggedView.elm index 34a55a2..264fdf5 100644 --- a/src/client/Model/View/LoggedView.elm +++ b/src/client/Model/View/LoggedView.elm @@ -8,16 +8,17 @@ import Model.Payment exposing (Payments) import Model.Payers exposing (Payers) import Model.View.Payment.Add exposing (..) import Model.View.Payment.Edition exposing (..) +import Model.View.Payment.Monthly exposing (..) type alias LoggedView = { users : Users , me : UserId , add : AddPayment - , monthlyPayments : Payments + , monthly : Monthly , payments : Payments , paymentsCount : Int , payers : Payers - , edition : Maybe Edition + , paymentEdition : Maybe Edition , currentPage : Int } @@ -26,10 +27,10 @@ initLoggedView users me monthlyPayments payments paymentsCount payers = { users = users , me = me , add = initAddPayment Punctual - , monthlyPayments = monthlyPayments + , monthly = initMonthly monthlyPayments , payments = payments , paymentsCount = paymentsCount , payers = payers - , edition = Nothing + , paymentEdition = Nothing , currentPage = 1 } |