From 574b47a72ac3df6df9249a29f5a6e1a2a075725c Mon Sep 17 00:00:00 2001
From: fr33domlover <fr33domlover@rel4tion.org>
Date: Tue, 7 Jun 2016 13:07:34 +0000
Subject: [PATCH] Pagination widget: Use just links, no <ul> and <li>

---
 src/Yesod/Paginate/Local.hs | 37 +++++++++++++++----------------------
 1 file changed, 15 insertions(+), 22 deletions(-)

diff --git a/src/Yesod/Paginate/Local.hs b/src/Yesod/Paginate/Local.hs
index 1ddb90b..fc91c07 100644
--- a/src/Yesod/Paginate/Local.hs
+++ b/src/Yesod/Paginate/Local.hs
@@ -79,32 +79,25 @@ pageNavWidget nm nws mklink =
                     <a href=@{route}#{suffix}>#{label}
                 |]
     in  [whamlet|
-            <ul>
-              $if nmFirst nm
-                <li>
-                  ^{link 1 $ nwsFirst nws}
+            $if nmFirst nm
+              ^{link 1 $ nwsFirst nws}
 
-              $#--------- TODO prev jumps --------
+            $#--------- TODO prev jumps --------
 
-              $maybe (ps, p) <- nmPrev nm
-                $forall m <- ps
-                  <li>
-                    ^{link m (T.pack $ show m)}
-                <li>
-                  ^{link p (nwsPrev nws p)}
+            $maybe (ps, p) <- nmPrev nm
+              $forall m <- ps
+                ^{link m (T.pack $ show m)}
+              ^{link p (nwsPrev nws p)}
 
-              <li>#{nwsCurrent nws (nmCurrent nm) (nmTotal nm)}
+            #{nwsCurrent nws (nmCurrent nm) (nmTotal nm)} #
 
-              $maybe (n, ns) <- nmNext nm
-                <li>
-                  ^{link n (nwsNext nws n)}
-                $forall m <- ns
-                  <li>
-                    ^{link m (T.pack $ show m)}
+            $maybe (n, ns) <- nmNext nm
+              ^{link n (nwsNext nws n)}
+              $forall m <- ns
+                ^{link m (T.pack $ show m)}
 
-              $#--------- TODO next jumps --------
+            $#--------- TODO next jumps --------
 
-              $if nmLast nm
-                <li>
-                  ^{link (nmTotal nm) (nwsLast nws $ nmTotal nm)}
+            $if nmLast nm
+              ^{link (nmTotal nm) (nwsLast nws $ nmTotal nm)}
         |]