diff options
| author | Jasper Van der Jeugt <m@jaspervdj.be> | 2014-05-20 09:29:56 +0200 |
|---|---|---|
| committer | Jasper Van der Jeugt <m@jaspervdj.be> | 2014-05-20 09:29:56 +0200 |
| commit | f9a0d3708850c9c05f39b425db424161fd2312f5 (patch) | |
| tree | 7be8310815e169ad1ae2e34df89f725867bf506e /src | |
| parent | f364b1778eccadff4b2689f2bfcd498ea53a68fd (diff) | |
| download | hakyll-f9a0d3708850c9c05f39b425db424161fd2312f5.tar.gz | |
Fix issue in paginate dependencies
Diffstat (limited to 'src')
| -rw-r--r-- | src/Hakyll/Web/Paginate.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Hakyll/Web/Paginate.hs b/src/Hakyll/Web/Paginate.hs index 1af792e..d31dde6 100644 --- a/src/Hakyll/Web/Paginate.hs +++ b/src/Hakyll/Web/Paginate.hs @@ -70,7 +70,7 @@ buildPaginateWith :: MonadMetadata m -> m Paginate buildPaginateWith n makeId pattern = do -- TODO: there is no sensible order for `ids` here, for now it's random; - -- but it should be `resectFirst` order because most recent posts should + -- but it should be `recentFirst` order because most recent posts should -- correspond to 1st paginator page and oldest one to last page idents <- getMatches pattern let pages = flip unfoldr idents $ \xs -> @@ -89,8 +89,8 @@ buildPaginateWith n makeId pattern = do paginateRules :: Paginate -> (PageNumber -> Pattern -> Rules ()) -> Rules () paginateRules paginator rules = forM_ (M.toList $ paginatePages paginator) $ \(idx, identifiers) -> - create [paginateMakeId paginator idx] $ - rulesExtraDependencies [paginateDependency paginator] $ + rulesExtraDependencies [paginateDependency paginator] $ + create [paginateMakeId paginator idx] $ rules idx $ fromList identifiers |