@@ -1,4 +1,5 @@
11-- | Module aimed to paginate web pages.
2+--
23module Text.Hakyll.Paginate
34 ( PaginateConfiguration (..)
45 , defaultPaginateConfiguration
@@ -13,6 +14,7 @@ import Text.Hakyll.HakyllAction
1314import Text.Hakyll.Util (link)
1415
1516-- | A configuration for a pagination.
17+--
1618data PaginateConfiguration = PaginateConfiguration
1719 { -- | Label for the link to the previous page.
1820 previousLabel :: String
@@ -25,6 +27,7 @@ data PaginateConfiguration = PaginateConfiguration
2527 }
2628
2729-- | A simple default configuration for pagination.
30+--
2831defaultPaginateConfiguration :: PaginateConfiguration
2932defaultPaginateConfiguration = PaginateConfiguration
3033 { previousLabel = "Previous"
@@ -54,6 +57,7 @@ defaultPaginateConfiguration = PaginateConfiguration
5457-- When @$previous@ or @$next@ are not available, they will be just a label
5558-- without a link. The same goes for when we are on the first or last page for
5659-- @$first@ and @$last@.
60+--
5761paginate :: PaginateConfiguration
5862 -> [HakyllAction () Context]
5963 -> [HakyllAction () Context]
@@ -61,7 +65,8 @@ paginate configuration renderables = paginate' Nothing renderables (1 :: Int)
6165 where
6266 -- Create a link with a given label, taken from the configuration.
6367 linkWithLabel f r = Right $ case actionUrl r of
64− Left l -> createSimpleHakyllAction $ link (f configuration) <$> l
68+ Left l -> createSimpleHakyllAction $
69+ link (f configuration) . ("$root/" ++) <$> l
6570 Right _ -> error "No link found for pagination."
6671
6772 -- The main function that creates combined renderables by recursing over