aboutsummaryrefslogtreecommitdiff
path: root/src/client/elm/LoggedIn/View.elm
diff options
context:
space:
mode:
Diffstat (limited to 'src/client/elm/LoggedIn/View.elm')
-rw-r--r--src/client/elm/LoggedIn/View.elm31
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 ""