Elm

Boards.Messages.elm

module Boards.Messages exposing (..)

type Msg
    = NoOp

Boards.View.elm

module Boards.View exposing (..)

nav : Boards -> Html Msg
nav model =
   Html.map (\_ -> NoOp) (Nav.View.viewNav model.navBar)

view : Boards -> Html Msg
view model = 
  div [] [ nav model ]

Messages.elm

module Messages exposing (..)

type Msg
    = NavMsg Nav.Messages.Msg
   | BoardsMsg Boards.Messages.Msg

Nav.Messages.elm

module Nav.Messages exposing (..)

type Msg
    = NoOp
    | GetNavBoards String
    | NavBoardsResponse (Result Http.Error (ApiResponseList NavBoard))

Nav.View.elm

module Nav.View exposing (..)

viewNav : NavModel -> Html Msg
viewNav model =
  div [] [ text "NAV"] 

Update.elm

module Update exposing (..)

update : Msg -> Model -> ( Model, Cmd Msg )
update msg model =
     case msg of
        BoardsMsg subMsg ->
            let
                ( updatedBoards, cmd) =
                    Boards.Update.update subMsg model.boards
            in
                ( { model | boards = updatedBoards }, Cmd.batch Cmd.map BoardsMsg cmd)
                
          NavMsg subMsg ->
            let
                ( updatedNav, cmd ) =
                    Nav.Update.update subMsg model.navBar
            in
                Debug.log "Nav main update"
                ( { model | navBar = updatedNav }, Cmd.map NavMsg cmd )