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 LoggedIn.Home.Model
( Model
, init
) where
import LoggedIn.Home.Model.Payer exposing (Payers)
import Model.User exposing (Users, UserId)
import Model.Payment exposing (PaymentId, Payments, PaymentFrequency(..))
import Model.Init exposing (..)
import LoggedIn.Home.Account.Model as AccountModel
import LoggedIn.Home.AddPayment.Model as AddPaymentModel
import LoggedIn.Home.Monthly.Model as MonthlyModel
type alias Model =
{ add : AddPaymentModel.Model
, monthly : MonthlyModel.Model
, account : AccountModel.Model
, users : Users
, payments : Payments
, paymentEdition : Maybe PaymentId
, currentPage : Int
}
init : Init -> Model
init initData =
{ users = initData.users
, add = AddPaymentModel.init Punctual
, monthly = MonthlyModel.init initData.monthlyPayments
, account = AccountModel.init initData.me initData.incomes
, payments = initData.payments
, paymentEdition = Nothing
, currentPage = 1
}
|
