diff options
Diffstat (limited to 'src/client/elm/LoggedIn/Home/View.elm')
-rw-r--r-- | src/client/elm/LoggedIn/Home/View.elm | 26 |
1 files changed, 12 insertions, 14 deletions
diff --git a/src/client/elm/LoggedIn/Home/View.elm b/src/client/elm/LoggedIn/Home/View.elm index 23da2c5..7e6ba40 100644 --- a/src/client/elm/LoggedIn/Home/View.elm +++ b/src/client/elm/LoggedIn/Home/View.elm @@ -2,33 +2,31 @@ module LoggedIn.Home.View ( view ) where -import Signal exposing (Address) - import Html exposing (..) import Html.Attributes exposing (..) +import LoggedData exposing (LoggedData) + import LoggedIn.Home.Model as LoggedInModel import LoggedIn.Home.Account.View as AccountView import LoggedIn.Home.AddPayment.View as AddPaymentView -import LoggedIn.Home.Monthly.View as MonthlyView - -import Model exposing (Model) -import Model.Payment exposing (Payments) -import Action exposing (Action) +import LoggedIn.Home.View.Monthly as MonthlyView import LoggedIn.Home.View.Table exposing (paymentsTable) import LoggedIn.Home.View.Paging exposing (paymentsPaging) -view : Address Action -> Model -> LoggedInModel.Model -> Html -view address model loggedInModel = +import Mailbox + +view : LoggedData -> LoggedInModel.Model -> Html +view loggedData loggedIn = div [ class "loggedIn" ] - [ AddPaymentView.view address model loggedInModel + [ AddPaymentView.view loggedData loggedIn , div [ class "expandables" ] - [ AccountView.view address model loggedInModel - , MonthlyView.view address model loggedInModel + [ AccountView.view loggedData loggedIn + , MonthlyView.view loggedData loggedIn ] - , paymentsTable address model loggedInModel - , paymentsPaging address loggedInModel + , paymentsTable loggedData loggedIn + , paymentsPaging Mailbox.address loggedData.payments loggedIn ] |