diff options
| -rw-r--r-- | src/atom.scm | 3 | ||||
| -rw-r--r-- | src/html.scm | 3 |
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)) |