From 72e797e6e622f7e3c4687d8194ef4749330df697 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Reynir=20Bj=C3=B6rnsson?= <reynir@reynir.dk>
Date: Tue, 8 Oct 2024 09:28:02 +0200
Subject: [PATCH] Get newest, not oldest

---
 src/blog.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/blog.ml b/src/blog.ml
index 1c08945..db420cf 100644
--- 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