1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
module Model.View.LoggedInView
( LoggedInView
, initLoggedInView
) where
import Model.User exposing (Users, UserId)
import Model.Payment exposing (Payments, PaymentFrequency(..))
import Model.Payer exposing (Payers)
import Model.View.LoggedIn.AddPayment exposing (..)
import Model.View.LoggedIn.Edition exposing (..)
import Model.View.LoggedIn.Monthly exposing (..)
import Model.View.LoggedIn.Account exposing (..)
type alias LoggedInView =
{ users : Users
, add : AddPayment
, monthly : Monthly
, account : Account
, payments : Payments
, paymentsCount : Int
, paymentEdition : Maybe Edition
, currentPage : Int
}
initLoggedInView : Users -> UserId -> Payments -> Payments -> Int -> Payers -> LoggedInView
initLoggedInView users me monthlyPayments payments paymentsCount payers =
{ users = users
, add = initAddPayment Punctual
, monthly = initMonthly monthlyPayments
, account = initAccount me payers
, payments = payments
, paymentsCount = paymentsCount
, paymentEdition = Nothing
, currentPage = 1
}
|
