module LoggedIn.View ( view ) where import Html exposing (..) import TransitRouter import Route exposing (..) import Action exposing (Action) import Model exposing (Model) import LoggedData import LoggedIn.Model as LoggedInModel import LoggedIn.Home.View as HomeView import LoggedIn.User.View as UserView view : Model -> LoggedInModel.Model -> Html view model loggedIn = let loggedData = LoggedData.build model loggedIn in case TransitRouter.getRoute model of Empty -> text "" Home -> HomeView.view loggedData loggedIn.home User -> UserView.view loggedData loggedIn.user