2017-06-25 04:45:03 +00:00
|
|
|
module Updates.Time exposing (update)
|
|
|
|
|
|
|
|
|
|
import Time exposing (Time)
|
2017-06-28 16:09:20 +00:00
|
|
|
import Types exposing (Msg(Tick, Tock, Press))
|
2017-06-25 04:45:03 +00:00
|
|
|
|
|
|
|
|
|
|
|
|
|
update : Msg -> Time -> ( Time, Cmd Msg )
|
|
|
|
|
update msg model =
|
|
|
|
|
case msg of
|
|
|
|
|
Tick newTime ->
|
|
|
|
|
( newTime, Cmd.none )
|
|
|
|
|
|
|
|
|
|
Tock timeDiff ->
|
|
|
|
|
( model, Cmd.none )
|
2017-06-28 16:09:20 +00:00
|
|
|
|
|
|
|
|
_ ->
|
|
|
|
|
( model, Cmd.none )
|
