src/client/elm/LoggedIn/Model.elm


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

module LoggedIn.Model exposing
  ( Model
  , init
  )

import Time exposing (Time)

import Model.Init exposing (..)
import Model.Payment exposing (Payments)
import Model.User exposing (Users, UserId)
import Model.Income exposing (Incomes)

import LoggedIn.Home.Model as HomeModel
import LoggedIn.Income.Model as IncomeModel

type alias Model =
  { home : HomeModel.Model
  , income : IncomeModel.Model
  , users : Users
  , me : UserId
  , payments : Payments
  , incomes : Incomes
  }

init : Init -> Model
init initData =
  { home = HomeModel.init
  , income = IncomeModel.init
  , users = initData.users
  , me = initData.me
  , payments = initData.payments
  , incomes = initData.incomes
  }