UpdateExample.elm

-- Actions


type Action =
  NoOp
  | PlayerList PlayerList.Action
  | Games Games.Action
  | Global Globals.GlobalAction


-- Update


update : Action -> Model -> Model
update action model =
  case action of
    NoOp ->
      model
    PlayerList act ->
      let
        (players, globalAction) =
           PlayerList.update act model.playerList
        newModel = updateGlobal globalAction model
      in
        { newModel |
          playerList <- players
        }
    Games act ->
      let
        (games, globalAction) =
          Games.update act model.games
        newModel = updateGlobal globalAction model
      in
        { newModel |
          games <- games
        }
    Global act ->
      updateGlobal act model


updateGlobal : Globals.GlobalAction -> Model -> Model
updateGlobal action model =
    { model |
      games <- Games.updateGlobal action model.games
    , playerList <- PlayerList.updateGlobal action model.playerList
    }