diff options
Diffstat (limited to 'src/client/elm/LoggedIn/Home/View.elm')
-rw-r--r-- | src/client/elm/LoggedIn/Home/View.elm | 25 |
1 files changed, 15 insertions, 10 deletions
diff --git a/src/client/elm/LoggedIn/Home/View.elm b/src/client/elm/LoggedIn/Home/View.elm index 097e730..213e4ab 100644 --- a/src/client/elm/LoggedIn/Home/View.elm +++ b/src/client/elm/LoggedIn/Home/View.elm @@ -4,29 +4,34 @@ module LoggedIn.Home.View exposing import Html exposing (..) import Html.Attributes exposing (..) +import Date import Msg exposing (Msg) import LoggedData exposing (LoggedData) +import Model.Payment as Payment import LoggedIn.Home.Model as LoggedInModel import LoggedIn.Home.Account.View as AccountView import LoggedIn.Home.AddPayment.View as AddPaymentView import LoggedIn.Home.View.Monthly as MonthlyView +import LoggedIn.Home.View.Search exposing (paymentsSearch) import LoggedIn.Home.View.Table exposing (paymentsTable) import LoggedIn.Home.View.Paging exposing (paymentsPaging) view : LoggedData -> LoggedInModel.Model -> Html Msg view loggedData loggedIn = - div - [ class "home" ] - [ AddPaymentView.view loggedData loggedIn - , div - [ class "expandables" ] - [ AccountView.view loggedData loggedIn - , MonthlyView.view loggedData loggedIn + let punctualPayments = Payment.sortedFiltredPunctual loggedIn.search loggedData.payments + in div + [ class "home" ] + [ AddPaymentView.view loggedData loggedIn + , div + [ class "expandables" ] + [ AccountView.view loggedData loggedIn + , MonthlyView.view loggedData loggedIn + ] + , paymentsSearch loggedData loggedIn + , paymentsTable loggedData loggedIn punctualPayments + , paymentsPaging punctualPayments loggedIn ] - , paymentsTable loggedData loggedIn - , paymentsPaging loggedData.payments loggedIn - ] |