From 34f28e16cbd002e1b4b5895d1a89e7c3c6e87192 Mon Sep 17 00:00:00 2001
From: Ekaitz Zarraga <ekaitz@elenq.tech>
Date: Sun, 15 Oct 2023 21:03:51 +0200
Subject: html and atom: fix sort function

---
 src/atom.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/atom.scm')

diff --git a/src/atom.scm b/src/atom.scm
index c8eced7..c1428ec 100644
--- a/src/atom.scm
+++ b/src/atom.scm
@@ -80,7 +80,8 @@
                         '()))
          (append-entry! (partial append-feed-entry! f)))
     (for-each append-entry!
-              (sort posts date>?))
+              (sort posts (lambda (a b)
+                            (date>? (entry-published a) (entry-published b)))))
     f))
 
 
-- 
cgit v1.2.3