diff options
| author | Joris | 2015-09-12 23:57:16 +0200 |
|---|---|---|
| committer | Joris | 2015-09-12 23:57:16 +0200 |
| commit | a48e79e2f7c1ab1ffb52b86ef9e900c75c5d023b (patch) | |
| tree | 05a613aef2d338f10bcdd394e520450656ed8f1c /src/client/View/LoggedIn/Paging.elm | |
| parent | d87dbd1360c14df83552fd757438c23e5d7b9f9c (diff) | |
Adding UI income read-only
Diffstat (limited to 'src/client/View/LoggedIn/Paging.elm')
| -rw-r--r-- | src/client/View/LoggedIn/Paging.elm | 5 |
1 files changed, 4 insertions, 1 deletions
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 ] |