Create an empty but reachable user page

1 files changed, 10 insertions, 21 deletions

diff --git a/src/client/elm/LoggedIn/View.elm b/src/client/elm/LoggedIn/View.elm
index c9980dc..27bf31a 100644
--- a/src/client/elm/LoggedIn/View.elm
+++ b/src/client/elm/LoggedIn/View.elm
@@ -5,30 +5,19 @@ module LoggedIn.View
 import Signal exposing (Address)
 
 import Html exposing (..)
-import Html.Attributes exposing (..)
 
-import LoggedIn.Model as LoggedInModel
-import LoggedIn.Account.View as AccountView
-import LoggedIn.AddPayment.View as AddPaymentView
-import LoggedIn.Monthly.View as MonthlyView
+import TransitRouter
+import Route exposing (..)
 
-import Model exposing (Model)
-import Model.Payment exposing (Payments)
 import Action exposing (Action)
+import Model exposing (Model)
+
+import LoggedIn.Model as LoggedInModel
 
-import LoggedIn.View.Table exposing (paymentsTable)
-import LoggedIn.View.Paging exposing (paymentsPaging)
+import LoggedIn.Home.View as HomeView
 
 view : Address Action -> Model -> LoggedInModel.Model -> Html
-view address model loggedInModel =
-  div
-    [ class "loggedIn" ]
-    [ AddPaymentView.view address model loggedInModel
-    , div
-        [ class "expandables" ]
-        [ AccountView.view address model loggedInModel
-        , MonthlyView.view address model loggedInModel
-        ]
-    , paymentsTable address model loggedInModel
-    , paymentsPaging address loggedInModel
-    ]
+view address model loggedIn =
+  case TransitRouter.getRoute model of
+    Home -> HomeView.view address model loggedIn.home
+    User -> text ""