blob: d0fe597e4a73ba240adf8c4f4fe76fbbd0a97ff0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
module Model.Action
( Action(..)
) where
import Time exposing (Time)
import Signal exposing (Address)
import Model.User exposing (Users, UserId)
import Model.Payment exposing (Payments)
import Model.Payer exposing (Payers)
import Model.Action.SignInAction exposing (SignInAction)
import Model.Action.LoggedInAction exposing (LoggedInAction)
import Model.Communication exposing (Communication)
type Action =
NoOp
| ServerCommunication Communication
| SignIn String
| UpdateTime Time
| GoSignInView
| GoLoggedInView Users UserId Payments Payments Int Payers
| UpdateSignIn SignInAction
| UpdateLoggedIn LoggedInAction
|
