elmman/src/Updates/Time.elm

18 lines
355 B
Elm

module Updates.Time exposing (update)
import Time exposing (Time)
import Types exposing (Msg(Tick, Tock, Press))
update : Msg -> Time -> ( Time, Cmd Msg )
update msg model =
case msg of
Tick newTime ->
( newTime, Cmd.none )
Tock timeDiff ->
( model, Cmd.none )
_ ->
( model, Cmd.none )