reynir/reynir.dk
1
0
Fork 0
Code Issues 5 Pull requests Packages Projects Releases Wiki Activity

Get newest, not oldest

Browse source
This commit is contained in:
Reynir Björnsson 2024-10-08 09:28:02 +02:00
parent 82ccf565fc
commit 72e797e6e6
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/blog.ml
View file

@ -586,9 +586,9 @@ struct
let open Task in let open Task in
let compute_index = let compute_index =
let rec filter = function let filter = function
| [] | [_] | [_; _] | [_; _; _] as latest_three -> latest_three | [] | [_] | [_; _] | [_; _; _] as latest_three -> latest_three
| _too_old :: more_recent -> filter more_recent | newest :: newer :: new_ :: _old -> [newest; newer; new_]
in in
Articles.compute_index Articles.compute_index
~filter ~filter