30 lines
709 B
Elm
30 lines
709 B
Elm
|
module Updates.All exposing (update)
|
||
|
|
||
|
import Updates.Player
|
||
|
import Updates.Time
|
||
|
import Types exposing (Msg(Tick, Tock), Model)
|
||
|
import List
|
||
|
import Time exposing (Time)
|
||
|
|
||
|
|
||
|
update : Msg -> Model -> ( Model, Cmd Msg )
|
||
|
update msg model =
|
||
|
let
|
||
|
tuples =
|
||
|
{ player = Updates.Player.update msg model.player
|
||
|
, time = Updates.Time.update msg model.time
|
||
|
}
|
||
|
|
||
|
returnModel =
|
||
|
{ player = Tuple.first tuples.player
|
||
|
, time = Tuple.first tuples.time
|
||
|
}
|
||
|
|
||
|
commands =
|
||
|
Cmd.batch
|
||
|
[ Tuple.second tuples.player
|
||
|
, Tuple.second tuples.time
|
||
|
]
|
||
|
in
|
||
|
( returnModel, commands )
|