module LoggedIn.View ( view ) where import Html exposing (..) import Html.Attributes 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.Income.View as UserView import LoggedIn.Stat.View as StatView view : Model -> LoggedInModel.Model -> Html view model loggedIn = div [ class "loggedIn" ] [ let loggedData = LoggedData.build model loggedIn in case TransitRouter.getRoute model of Empty -> text "" Home -> HomeView.view loggedData loggedIn.home Income -> UserView.view loggedData loggedIn.income Stat -> StatView.view loggedData ]