diff options
| author | Joris | 2016-03-30 00:28:55 +0200 |
|---|---|---|
| committer | Joris | 2016-03-30 00:28:55 +0200 |
| commit | baefda5a902a94cedf84cfcd2ae550267e5d932e (patch) | |
| tree | 72fa7b4e6c49d025563e3d7cba1ec13af43aa1c2 /src/client/elm/LoggedIn/Home/View/Paging.elm | |
| parent | 76f8b85eb9f796d6df861a04f702ef5f48630795 (diff) | |
| download | budget-baefda5a902a94cedf84cfcd2ae550267e5d932e.tar.gz budget-baefda5a902a94cedf84cfcd2ae550267e5d932e.tar.bz2 budget-baefda5a902a94cedf84cfcd2ae550267e5d932e.zip | |
Merge punctual and monthly payments in client model
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 09a5b62..8433494 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) +import Model.Payment exposing (Payments, perPage, punctualPayments) 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 payments) / toFloat perPage) + let maxPage = ceiling (toFloat (List.length (punctualPayments payments)) / toFloat perPage) pages = truncatePages homeModel.currentPage [1..maxPage] in if maxPage == 1 then |