diff options
author | Joris | 2016-03-29 23:46:47 +0200 |
---|---|---|
committer | Joris | 2016-03-29 23:46:47 +0200 |
commit | 76f8b85eb9f796d6df861a04f702ef5f48630795 (patch) | |
tree | c8b975df9854994cbbefff15908ad9bb728264bc /src/client/elm/LoggedIn/Home/View.elm | |
parent | cc58377a48d13ef85cedb5ec0e19eb8b879dd497 (diff) | |
download | budget-76f8b85eb9f796d6df861a04f702ef5f48630795.tar.gz budget-76f8b85eb9f796d6df861a04f702ef5f48630795.tar.bz2 budget-76f8b85eb9f796d6df861a04f702ef5f48630795.zip |
Move logged data to LoggedIn component
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 ] |