src/client/elm/Dialog/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 Dialog.Model exposing
  ( Model
  , init
  )

import Date exposing (Date)
import View.Date as Date

import Form exposing (Form)
import Form.Field as Field exposing (Field)
import Form.Validate as Validate exposing (Validation)
import Validation

import Model.Payment as Payment exposing (Payment, Frequency, PaymentId)
import Model.Translations exposing (Translations)

import Dialog.AddPayment.Model as AddPayment
import Dialog.AddIncome.Model as AddIncome
import Dialog.AddCategory.Model as AddCategory

type alias Model =
  { addPayment : Form String AddPayment.Model
  , addIncome : Form String AddIncome.Model
  , addCategory : Form String AddCategory.Model
  }

init : Model
init =
  { addPayment = AddPayment.init
  , addIncome = AddIncome.init
  , addCategory = AddCategory.init
  }