aboutsummaryrefslogtreecommitdiff
path: root/src/client/elm/LoggedIn/View.elm
diff options
context:
space:
mode:
Diffstat (limited to 'src/client/elm/LoggedIn/View.elm')
-rw-r--r--src/client/elm/LoggedIn/View.elm15
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 ""