diff options
Diffstat (limited to 'src/client/elm/LoggedIn/View.elm')
-rw-r--r-- | src/client/elm/LoggedIn/View.elm | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/src/client/elm/LoggedIn/View.elm b/src/client/elm/LoggedIn/View.elm index 27bf31a..5f7ae71 100644 --- a/src/client/elm/LoggedIn/View.elm +++ b/src/client/elm/LoggedIn/View.elm @@ -2,8 +2,6 @@ module LoggedIn.View ( view ) where -import Signal exposing (Address) - import Html exposing (..) import TransitRouter @@ -11,13 +9,16 @@ 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 : Address Action -> Model -> LoggedInModel.Model -> Html -view address model loggedIn = - case TransitRouter.getRoute model of - Home -> HomeView.view address model loggedIn.home - User -> text "" +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 "" |