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
|
module Model.View.LoggedView
( LoggedView
, initLoggedView
) where
import Model.User exposing (Users, UserId)
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
, monthly : Monthly
, payments : Payments
, paymentsCount : Int
, payers : Payers
, paymentEdition : Maybe Edition
, currentPage : Int
}
initLoggedView : Users -> UserId -> Payments -> Payments -> Int -> Payers -> LoggedView
initLoggedView users me monthlyPayments payments paymentsCount payers =
{ users = users
, me = me
, add = initAddPayment Punctual
, monthly = initMonthly monthlyPayments
, payments = payments
, paymentsCount = paymentsCount
, payers = payers
, paymentEdition = Nothing
, currentPage = 1
}
|
