diff options
author | Joris | 2016-03-30 14:17:59 +0200 |
---|---|---|
committer | Joris | 2016-03-30 14:17:59 +0200 |
commit | c542551ad043260e6a4a6569b4af5c748f7b6001 (patch) | |
tree | 1b305d3d5c7280e34d19ef04365b47200e1bae9f /src/client/elm/LoggedIn/Home/View/Paging.elm | |
parent | baefda5a902a94cedf84cfcd2ae550267e5d932e (diff) | |
download | budget-c542551ad043260e6a4a6569b4af5c748f7b6001.tar.gz budget-c542551ad043260e6a4a6569b4af5c748f7b6001.tar.bz2 budget-c542551ad043260e6a4a6569b4af5c748f7b6001.zip |
Filter own monthly payments in view
Diffstat (limited to 'src/client/elm/LoggedIn/Home/View/Paging.elm')
-rw-r--r-- | src/client/elm/LoggedIn/Home/View/Paging.elm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/client/elm/LoggedIn/Home/View/Paging.elm b/src/client/elm/LoggedIn/Home/View/Paging.elm index 8433494..0385941 100644 --- a/src/client/elm/LoggedIn/Home/View/Paging.elm +++ b/src/client/elm/LoggedIn/Home/View/Paging.elm @@ -15,7 +15,7 @@ import LoggedIn.Home.Model as HomeModel import Action exposing (Action) import LoggedData exposing (LoggedData) -import Model.Payment exposing (Payments, perPage, punctualPayments) +import Model.Payment as Payment exposing (Payments, perPage) import View.Icon exposing (renderIcon) @@ -24,7 +24,7 @@ showedPages = 5 paymentsPaging : Address Action -> Payments -> HomeModel.Model -> Html paymentsPaging address payments homeModel = - let maxPage = ceiling (toFloat (List.length (punctualPayments payments)) / toFloat perPage) + let maxPage = ceiling (toFloat (List.length (Payment.punctual payments)) / toFloat perPage) pages = truncatePages homeModel.currentPage [1..maxPage] in if maxPage == 1 then |