@@ -70,7 +70,7 @@ buildPaginateWith :: MonadMetadata m
70 -> m Paginate
70 -> m Paginate
71buildPaginateWith n makeId pattern = do
71buildPaginateWith n makeId pattern = do
72 -- TODO: there is no sensible order for `ids` here, for now it's random;
72 -- TODO: there is no sensible order for `ids` here, for now it's random;
73− -- but it should be `resectFirst` order because most recent posts should
73+ -- but it should be `recentFirst` order because most recent posts should
74 -- correspond to 1st paginator page and oldest one to last page
74 -- correspond to 1st paginator page and oldest one to last page
75 idents <- getMatches pattern
75 idents <- getMatches pattern
76 let pages = flip unfoldr idents $ \xs ->
76 let pages = flip unfoldr idents $ \xs ->
@@ -89,8 +89,8 @@ buildPaginateWith n makeId pattern = do
89paginateRules :: Paginate -> (PageNumber -> Pattern -> Rules ()) -> Rules ()
89paginateRules :: Paginate -> (PageNumber -> Pattern -> Rules ()) -> Rules ()
90paginateRules paginator rules =
90paginateRules paginator rules =
91 forM_ (M.toList $ paginatePages paginator) $ \(idx, identifiers) ->
91 forM_ (M.toList $ paginatePages paginator) $ \(idx, identifiers) ->
92+ rulesExtraDependencies [paginateDependency paginator] $
92− create [paginateMakeId paginator idx] $
93+ create [paginateMakeId paginator idx] $
93− rulesExtraDependencies [paginateDependency paginator] $
94 rules idx $ fromList identifiers
94 rules idx $ fromList identifiers