From 76f8b85eb9f796d6df861a04f702ef5f48630795 Mon Sep 17 00:00:00 2001
From: Joris
Date: Tue, 29 Mar 2016 23:46:47 +0200
Subject: Move logged data to LoggedIn component

---
 src/client/elm/LoggedIn/View.elm | 15 ++++++++-------
 1 file changed, 8 insertions(+), 7 deletions(-)

(limited to 'src/client/elm/LoggedIn/View.elm')

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 ""
-- 
cgit v1.2.3