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

module LoggedIn.Model
  ( Model
  , init
  ) where

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

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

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