From 0b6f0fa29075178b45cb17d2932003ab4b342280 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 6 Sep 2015 16:23:48 +0200
Subject: Use buttons or links when elements are clickable

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

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

diff --git a/src/client/View/Payments/Paging.elm b/src/client/View/Payments/Paging.elm
index 53df3b3..b9a0109 100644
--- a/src/client/View/Payments/Paging.elm
+++ b/src/client/View/Payments/Paging.elm
@@ -27,7 +27,7 @@ paymentsPaging loggedView =
         then
           text ""
         else
-          ul
+          div
             [ class "pages" ]
             (  ( if loggedView.currentPage > 1
                    then [ firstPage, previousPage loggedView ]
@@ -56,7 +56,7 @@ truncatePages currentPage pages =
 
 firstPage : Html
 firstPage =
-  li
+  button
     [ class "page"
     , onClick serverCommunications.address (SC.UpdatePage 1)
     ]
@@ -64,7 +64,7 @@ firstPage =
 
 previousPage : LoggedView -> Html
 previousPage loggedView =
-  li
+  button
     [ class "page"
     , onClick serverCommunications.address (SC.UpdatePage (loggedView.currentPage - 1))
     ]
@@ -72,7 +72,7 @@ previousPage loggedView =
 
 nextPage : LoggedView -> Html
 nextPage loggedView =
-  li
+  button
     [ class "page"
     , onClick serverCommunications.address (SC.UpdatePage (loggedView.currentPage + 1))
     ]
@@ -80,7 +80,7 @@ nextPage loggedView =
 
 lastPage : Int -> Html
 lastPage maxPage =
-  li
+  button
     [ class "page"
     , onClick serverCommunications.address (SC.UpdatePage maxPage)
     ]
@@ -89,7 +89,7 @@ lastPage maxPage =
 paymentsPage : LoggedView -> Int -> Html
 paymentsPage loggedView page =
   let onCurrentPage = page == loggedView.currentPage
-  in  li
+  in  button
         [ class ("page" ++ (if onCurrentPage then " current" else ""))
         , onClick serverCommunications.address <|
             if onCurrentPage then SC.NoCommunication else SC.UpdatePage page
-- 
cgit v1.2.3