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

module Msg exposing
  ( Msg(..)
  )

import Time exposing (Time)

import Page exposing (Page)

import Model.Init exposing (Init)

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
  | GoSignInView
  | SignOut
  | Dialog (Dialog.Msg DialogModel.Model DialogMsg.Msg Msg)
  | Tooltip Tooltip.Msg