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
36
37
|
module Model.View.LoggedInView
( LoggedInView
, initLoggedInView
) where
import Model.User exposing (Users, UserId)
import Model.Payment exposing (Payments)
import Model.Payers exposing (Payers)
import Model.View.LoggedIn.Add exposing (..)
import Model.View.LoggedIn.Edition exposing (..)
import Model.View.LoggedIn.Monthly exposing (..)
import Model.View.LoggedIn.Account exposing (..)
type alias LoggedInView =
{ users : Users
, me : UserId
, add : AddPayment
, monthly : Monthly
, account : Account
, payments : Payments
, paymentsCount : Int
, paymentEdition : Maybe Edition
, currentPage : Int
}
initLoggedInView : Users -> UserId -> Payments -> Payments -> Int -> Payers -> Maybe Int -> LoggedInView
initLoggedInView users me monthlyPayments payments paymentsCount payers income =
{ users = users
, me = me
, add = initAddPayment Punctual
, monthly = initMonthly monthlyPayments
, account = initAccount payers income
, payments = payments
, paymentsCount = paymentsCount
, paymentEdition = Nothing
, currentPage = 1
}
|
