@@ -70,7 +70,7 @@ buildPaginateWith :: MonadMetadata m
7070 -> m Paginate
7171buildPaginateWith n makeId pattern = do
7272 -- 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
7474 -- correspond to 1st paginator page and oldest one to last page
7575 idents <- getMatches pattern
7676 let pages = flip unfoldr idents $ \xs ->
@@ -89,8 +89,8 @@ buildPaginateWith n makeId pattern = do
8989paginateRules :: Paginate -> (PageNumber -> Pattern -> Rules ()) -> Rules ()
9090paginateRules paginator rules =
9191 forM_ (M.toList $ paginatePages paginator) $ \(idx, identifiers) ->
92− create [paginateMakeId paginator idx] $
93− rulesExtraDependencies [paginateDependency paginator] $
92+ rulesExtraDependencies [paginateDependency paginator] $
93+ create [paginateMakeId paginator idx] $
9494 rules idx $ fromList identifiers
9595
9696