src/client/elm/Msg.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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48

module Msg exposing
  ( Msg(..)
  )

import Date exposing (Date)
import Time exposing (Time)

import Page exposing (Page)

import Model.Init exposing (Init)
import Model.Payment exposing (PaymentId, Frequency)
import Model.Income exposing (IncomeId)
import Model.Category exposing (CategoryId)

import Dialog
import Dialog.Model as DialogModel
import Dialog.Msg as DialogMsg

import Tooltip

import SignIn.Msg as SignInMsg
import LoggedIn.Msg as LoggedInMsg

type Msg =
  NoOp
  | UpdatePage Page
  | SignIn String
  | UpdateTime Time
  | GoLoggedInView Init
  | UpdateSignIn SignInMsg.Msg
  | UpdateLoggedIn LoggedInMsg.Msg
  | GoSignInView
  | SignOut
  | Error String
  | Dialog (Dialog.Msg DialogModel.Model DialogMsg.Msg Msg)
  | Tooltip Tooltip.Msg

  | CreatePayment String Int Date CategoryId Frequency
  | EditPayment PaymentId String Int Date CategoryId Frequency
  | DeletePayment PaymentId

  | CreateIncome Int Date
  | EditIncome IncomeId Int Date
  | DeleteIncome IncomeId

  | CreateCategory String String
  | EditCategory CategoryId String String
  | DeleteCategory CategoryId