From 3b852237ed9276acb21d98d0395ae49dfefd5200 Mon Sep 17 00:00:00 2001
From: Nicolas Perriault <nicolas@perriault.net>
Date: Sun, 7 May 2017 09:58:17 +0200
Subject: [PATCH] Make load-more btn area fully clickable.

---
 src/View/Common.elm | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

diff --git a/src/View/Common.elm b/src/View/Common.elm
index 1e8870c..0813352 100644
--- a/src/View/Common.elm
+++ b/src/View/Common.elm
@@ -91,13 +91,12 @@ loadMoreBtn { id, links, loading } =
     else
         case links.next of
             Just next ->
-                li [ class "list-group-item load-more text-center" ]
-                    [ a
-                        [ href next
-                        , onClickWithPreventAndStop <| TimelineLoadNext id next
-                        ]
-                        [ text "Load more" ]
+                a
+                    [ class "list-group-item load-more text-center"
+                    , href next
+                    , onClickWithPreventAndStop <| TimelineLoadNext id next
                     ]
+                    [ text "Load more" ]
 
             Nothing ->
                 text ""