diff options
author | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2010-03-11 12:25:49 +0100 |
---|---|---|
committer | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2010-03-11 12:25:49 +0100 |
commit | 01d8c4b330ecbc8ca52bfbe659bdecad475bd1ab (patch) | |
tree | 480e1f7494c8c2c057dbbfe1d3c371d90e060c9f /src/Text/Hakyll/Paginate.hs | |
parent | a2c15932b713e81dcd1344f9227db2c3a65103bf (diff) | |
download | hakyll-01d8c4b330ecbc8ca52bfbe659bdecad475bd1ab.tar.gz |
Updated some comments.
Diffstat (limited to 'src/Text/Hakyll/Paginate.hs')
-rw-r--r-- | src/Text/Hakyll/Paginate.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Hakyll/Paginate.hs b/src/Text/Hakyll/Paginate.hs index b895cbb..a1a64e4 100644 --- a/src/Text/Hakyll/Paginate.hs +++ b/src/Text/Hakyll/Paginate.hs @@ -34,7 +34,7 @@ defaultPaginateConfiguration = PaginateConfiguration } -- | The most important function for pagination. This function operates on a --- list of renderables (the pages), and basically just adds fields to them +-- list of @Context@s (the pages), and basically just adds fields to them -- by combining them with a custom page. -- -- The following metadata fields will be added: @@ -65,7 +65,7 @@ paginate configuration renderables = paginate' Nothing renderables (1 :: Int) Nothing -> error "No link found for pagination." -- The main function that creates combined renderables by recursing over - -- the list of renderables. + -- the list of items. paginate' _ [] _ = [] paginate' maybePrev (x:xs) index = let (previous, first) = case maybePrev of |