diff options
| author | Joris | 2016-06-19 01:00:53 +0200 |
|---|---|---|
| committer | Joris | 2016-06-19 01:00:53 +0200 |
| commit | fb5629d7f705b7e80dcf1852da58d2864c2b0d25 (patch) | |
| tree | e9e0d0db119b6f7c2b240226f03ff2d6218070ed /src/client/elm/LoggedIn/Home/View/Paging.elm | |
| parent | 9716f77d14ef43f96a1534d97bb9d336df1882be (diff) | |
Show payment count and sum right after search
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 fb78810..da69232 100644 --- a/src/client/elm/LoggedIn/Home/View/Paging.elm +++ b/src/client/elm/LoggedIn/Home/View/Paging.elm @@ -22,8 +22,8 @@ import Model.Payment as Payment exposing (Payments, perPage) showedPages : Int showedPages = 5 -paymentsPaging : Payments -> HomeModel.Model -> Html Msg -paymentsPaging payments homeModel = +paymentsPaging : HomeModel.Model -> Payments -> Html Msg +paymentsPaging homeModel payments = let maxPage = ceiling (toFloat (List.length payments) / toFloat perPage) pages = truncatePages homeModel.currentPage [1..maxPage] in if maxPage == 1 |