summaryrefslogtreecommitdiff
path: root/src/Text/Hakyll/Paginate.hs
diff options
context:
space:
mode:
authorJasper Van der Jeugt <jaspervdj@gmail.com>2010-03-10 16:02:17 +0100
committerJasper Van der Jeugt <jaspervdj@gmail.com>2010-03-10 16:02:17 +0100
commit23f9d1e0cfb82260b73ce8799756fa6d3a838a70 (patch)
tree6dca9f11bfefafa5aeaeb27465236194abf3364d /src/Text/Hakyll/Paginate.hs
parentfa28eac8a395da7e524dc50d910d10dc1fa76a12 (diff)
downloadhakyll-23f9d1e0cfb82260b73ce8799756fa6d3a838a70.tar.gz
Removed xxxWith functions, they can be implemented more elegant using Arrows anyway.
Diffstat (limited to 'src/Text/Hakyll/Paginate.hs')
-rw-r--r--src/Text/Hakyll/Paginate.hs5
1 files changed, 3 insertions, 2 deletions
diff --git a/src/Text/Hakyll/Paginate.hs b/src/Text/Hakyll/Paginate.hs
index 1de62b3..159a3a4 100644
--- a/src/Text/Hakyll/Paginate.hs
+++ b/src/Text/Hakyll/Paginate.hs
@@ -7,6 +7,7 @@ module Text.Hakyll.Paginate
import Control.Applicative ((<$>))
+import Text.Hakyll.Hakyll (Context)
import Text.Hakyll.Renderables
import Text.Hakyll.HakyllAction
import Text.Hakyll.Util (link)
@@ -54,8 +55,8 @@ defaultPaginateConfiguration = PaginateConfiguration
-- without a link. The same goes for when we are on the first or last page for
-- @$first@ and @$last@.
paginate :: PaginateConfiguration
- -> [Renderable]
- -> [Renderable]
+ -> [HakyllAction () Context]
+ -> [HakyllAction () Context]
paginate configuration renderables = paginate' Nothing renderables (1 :: Int)
where
-- Create a link with a given label, taken from the configuration.