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

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 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
  | SignIn String
  | UpdateTime Time
  | GoLoggedInView Init
  | UpdateSignIn SignInMsg.Msg
  | UpdateLoggedIn LoggedInMsg.Msg
  | CreatePayment String Int Date Frequency
  | EditPayment PaymentId String Int Date Frequency
  | DeletePayment PaymentId
  | CreateIncome Int Date
  | EditIncome IncomeId Int Date
  | DeleteIncome IncomeId
  | GoSignInView
  | SignOut
  | Error String
  | Dialog (Dialog.Msg DialogModel.Model DialogMsg.Msg Msg)
  | Tooltip Tooltip.Msg