1 files changed, 9 insertions, 11 deletions
diff --git a/src/client/elm/LoggedIn/View.elm b/src/client/elm/LoggedIn/View.elm
index dbbab33..a1fa3f0 100644
--- a/src/client/elm/LoggedIn/View.elm
+++ b/src/client/elm/LoggedIn/View.elm
@@ -1,14 +1,13 @@
-module LoggedIn.View
+module LoggedIn.View exposing
   ( view
-  ) where
+  )
 
 import Html exposing (..)
 import Html.Attributes exposing (..)
 
-import TransitRouter
-import Route exposing (..)
+import Page
 
-import Action exposing (Action)
+import Msg exposing (Msg)
 import Model exposing (Model)
 import LoggedData
 
@@ -18,14 +17,13 @@ import LoggedIn.Home.View as HomeView
 import LoggedIn.Income.View as UserView
 import LoggedIn.Stat.View as StatView
 
-view : Model -> LoggedInModel.Model -> Html
+view : Model -> LoggedInModel.Model -> Html Msg
 view model loggedIn =
   div
     [ class "loggedIn" ]
     [ let loggedData = LoggedData.build model loggedIn
-      in  case TransitRouter.getRoute model of
-            Empty -> text ""
-            Home -> HomeView.view loggedData loggedIn.home
-            Income -> UserView.view loggedData loggedIn.income
-            Stat -> StatView.view loggedData
+      in  case model.page of
+            Page.Home -> HomeView.view loggedData loggedIn.home
+            Page.Income -> UserView.view loggedData loggedIn.income
+            Page.Statistics -> StatView.view loggedData
     ]