Move logged data to LoggedIn component

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