Make load-more btn area fully clickable.

This commit is contained in:
Nicolas Perriault 2017-05-07 09:58:17 +02:00
parent 587bccec9d
commit 3b852237ed
No known key found for this signature in database
GPG Key ID: DA5E4C83904F7A2A

View File

@ -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 ""