From 6541fa5316816d6f97a87a370775cfe278e7eeb8 Mon Sep 17 00:00:00 2001 From: Joris Date: Thu, 7 Apr 2016 23:58:23 +0200 Subject: Add cumulative incomes by user --- src/client/elm/LoggedIn/Home/View/Paging.elm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/client/elm/LoggedIn/Home/View/Paging.elm') diff --git a/src/client/elm/LoggedIn/Home/View/Paging.elm b/src/client/elm/LoggedIn/Home/View/Paging.elm index b669b6e..939ee55 100644 --- a/src/client/elm/LoggedIn/Home/View/Paging.elm +++ b/src/client/elm/LoggedIn/Home/View/Paging.elm @@ -45,7 +45,7 @@ truncatePages currentPage pages = if currentPage <= showedLeftPages then [1..showedPages] else if currentPage > totalPages - showedRightPages then - [(totalPages - showedPages)..totalPages] + [(totalPages - showedPages + 1)..totalPages] else [(currentPage - showedLeftPages)..(currentPage + showedRightPages)] in List.filter (flip List.member pages) truncatedPages -- cgit v1.2.3