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.LoggedInView
( LoggedInView
, initLoggedInView
) where
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 (..)
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 : Init -> LoggedInView
initLoggedInView init =
{ users = init.users
, add = initAddPayment Punctual
, monthly = initMonthly init.monthlyPayments
, account = initAccount init.me init.payers
, payments = init.payments
, paymentsCount = init.paymentsCount
, paymentEdition = Nothing
, currentPage = 1
}
|
