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 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 -> text ""