mirror of
https://github.com/correl/elm-exercise.git
synced 2024-11-27 11:09:53 +00:00
26 lines
382 B
Elm
26 lines
382 B
Elm
module Demo.Connection (..) where
|
|
|
|
|
|
type State
|
|
= Online
|
|
| Connecting
|
|
| Offline
|
|
|
|
type Action
|
|
= Connect
|
|
| Connected
|
|
| Disconnect
|
|
|
|
|
|
update : Action -> State -> State
|
|
update action state =
|
|
case (state, action) of
|
|
(Offline, Connect) ->
|
|
Connecting
|
|
(Connecting, Connected) ->
|
|
Online
|
|
(Online, Disconnect) ->
|
|
Offline
|
|
_ ->
|
|
state
|
|
|