diff options
Diffstat (limited to 'src/client/elm/Model/View')
-rw-r--r-- | src/client/elm/Model/View/LoggedInView.elm | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/src/client/elm/Model/View/LoggedInView.elm b/src/client/elm/Model/View/LoggedInView.elm index 75285b1..2df3525 100644 --- a/src/client/elm/Model/View/LoggedInView.elm +++ b/src/client/elm/Model/View/LoggedInView.elm @@ -6,6 +6,7 @@ module Model.View.LoggedInView import Model.User exposing (Users, UserId) import Model.Payment exposing (Payments, PaymentFrequency(..)) import Model.Payer exposing (Payers) +import Model.Init exposing (..) import Model.View.LoggedIn.AddPayment exposing (..) import Model.View.LoggedIn.Edition exposing (..) import Model.View.LoggedIn.Monthly exposing (..) @@ -22,14 +23,14 @@ type alias LoggedInView = , currentPage : Int } -initLoggedInView : Users -> UserId -> Payments -> Payments -> Int -> Payers -> LoggedInView -initLoggedInView users me monthlyPayments payments paymentsCount payers = - { users = users +initLoggedInView : Init -> LoggedInView +initLoggedInView init = + { users = init.users , add = initAddPayment Punctual - , monthly = initMonthly monthlyPayments - , account = initAccount me payers - , payments = payments - , paymentsCount = paymentsCount + , monthly = initMonthly init.monthlyPayments + , account = initAccount init.me init.payers + , payments = init.payments + , paymentsCount = init.paymentsCount , paymentEdition = Nothing , currentPage = 1 } |