From e32a9126ae7fd7f9596dd08b64ecab8644d994bd Mon Sep 17 00:00:00 2001
From: Joris
Date: Wed, 30 Dec 2015 00:28:41 +0100
Subject: Upgrade to elm 0.16.0

---
 src/client/elm/View/LoggedIn/Paging.elm | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'src/client/elm/View/LoggedIn/Paging.elm')

diff --git a/src/client/elm/View/LoggedIn/Paging.elm b/src/client/elm/View/LoggedIn/Paging.elm
index 93d7f1d..608113b 100644
--- a/src/client/elm/View/LoggedIn/Paging.elm
+++ b/src/client/elm/View/LoggedIn/Paging.elm
@@ -46,12 +46,12 @@ truncatePages currentPage pages =
       showedLeftPages = ceiling ((toFloat showedPages - 1) / 2)
       showedRightPages = floor ((toFloat showedPages - 1) / 2)
       truncatedPages =
-        if | currentPage < showedLeftPages ->
-               [1..showedPages]
-           | currentPage > totalPages - showedRightPages ->
-               [(totalPages - showedPages)..totalPages]
-           | otherwise ->
-               [(currentPage - showedLeftPages)..(currentPage + showedRightPages)]
+        if currentPage < showedLeftPages then
+          [1..showedPages]
+        else if currentPage > totalPages - showedRightPages then
+          [(totalPages - showedPages)..totalPages]
+        else
+          [(currentPage - showedLeftPages)..(currentPage + showedRightPages)]
   in  List.filter (flip List.member pages) truncatedPages
 
 firstPage : Html
-- 
cgit v1.2.3