summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/atom.scm3
-rw-r--r--src/html.scm3
2 files changed, 4 insertions, 2 deletions
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))
diff --git a/src/html.scm b/src/html.scm
index 7099318..2bd1178 100644
--- a/src/html.scm
+++ b/src/html.scm
@@ -79,7 +79,8 @@
uri
atom-feed-uri
author
- (sort posts date>?)
+ (sort posts (lambda (a b)
+ (date>? (post-published a) (post-published b))))
styles
scripts))