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
38
|
module LoggedIn.Model
( Model
, init
) 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 LoggedIn.Account.Model as AccountModel
type alias Model =
{ users : Users
, add : AddPayment
, monthly : Monthly
, account : AccountModel.Model
, payments : Payments
, paymentsCount : Int
, paymentEdition : Maybe Edition
, currentPage : Int
}
init : Init -> Model
init initData =
{ users = initData.users
, add = initAddPayment Punctual
, monthly = initMonthly initData.monthlyPayments
, account = AccountModel.init initData.me initData.incomes
, payments = initData.payments
, paymentsCount = initData.paymentsCount
, paymentEdition = Nothing
, currentPage = 1
}
|