diff options
author | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2010-03-10 16:02:17 +0100 |
---|---|---|
committer | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2010-03-10 16:02:17 +0100 |
commit | 23f9d1e0cfb82260b73ce8799756fa6d3a838a70 (patch) | |
tree | 6dca9f11bfefafa5aeaeb27465236194abf3364d /src/Text/Hakyll/Paginate.hs | |
parent | fa28eac8a395da7e524dc50d910d10dc1fa76a12 (diff) | |
download | hakyll-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.hs | 5 |
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. |