diff options
Diffstat (limited to 'src/client/elm/LoggedIn/View.elm')
-rw-r--r-- | src/client/elm/LoggedIn/View.elm | 31 |
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 "" |