From a48e79e2f7c1ab1ffb52b86ef9e900c75c5d023b Mon Sep 17 00:00:00 2001
From: Joris
Date: Sat, 12 Sep 2015 23:57:16 +0200
Subject: Adding UI income read-only

---
 src/client/View/LoggedIn/Paging.elm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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

diff --git a/src/client/View/LoggedIn/Paging.elm b/src/client/View/LoggedIn/Paging.elm
index 5d5f2db..93d7f1d 100644
--- a/src/client/View/LoggedIn/Paging.elm
+++ b/src/client/View/LoggedIn/Paging.elm
@@ -90,7 +90,10 @@ paymentsPage : LoggedInView -> Int -> Html
 paymentsPage loggedInView page =
   let onCurrentPage = page == loggedInView.currentPage
   in  button
-        [ class ("page" ++ (if onCurrentPage then " current" else ""))
+        [ classList
+            [ ("page", True)
+            , ("current", onCurrentPage)
+            ]
         , onClick serverCommunications.address <|
             if onCurrentPage then SC.NoCommunication else SC.UpdatePage page
         ]
-- 
cgit v1.2.3