From 8e3a7bf1cb83bbb6e3dcd54308eefa52a29cd679 Mon Sep 17 00:00:00 2001
From: Joris
Date: Fri, 3 Jun 2016 20:27:16 +0200
Subject: Migrate to elm 0.17

---
 src/client/elm/LoggedIn/View.elm | 20 +++++++++-----------
 1 file changed, 9 insertions(+), 11 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 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
     ]
-- 
cgit v1.2.3