1 2 3 4 5 6 7 8 9
module Model.Action.SignInAction ( SignInAction(..) ) where type SignInAction = UpdateLogin String | WaitingServer | ValidLogin | ErrorLogin String