Get newest, not oldest

2024-10-08 09:28:02 +02:00 · 2024-10-08 09:28:02 +02:00 · 72e797e6e6
parent 82ccf565fc
commit 72e797e6e6
1 changed files with 2 additions and 2 deletions
--- a/src/blog.ml
+++ b/src/blog.ml
@ -586,9 +586,9 @@ struct

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