aboutsummaryrefslogtreecommitdiff
path: root/src/client/elm/Model/View/LoggedInView.elm
diff options
context:
space:
mode:
Diffstat (limited to 'src/client/elm/Model/View/LoggedInView.elm')
-rw-r--r--src/client/elm/Model/View/LoggedInView.elm15
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
}