aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorChristopher Brannon <chris@the-brannons.com>2021-04-08 14:07:41 -0700
committerChristopher Brannon <chris@the-brannons.com>2021-04-08 14:07:41 -0700
commit5aa3eff924e2d9278205e66b824ceec51856d5a7 (patch)
treeafa6b86f4af9697b984c0fbfedcf008af64fb35e
parent21710105c9ddbcd3f74e7879d4786cea89299ccf (diff)
downloadnawp-5aa3eff924e2d9278205e66b824ceec51856d5a7.tar
nawp-5aa3eff924e2d9278205e66b824ceec51856d5a7.tar.gz
nawp-5aa3eff924e2d9278205e66b824ceec51856d5a7.tar.bz2
nawp-5aa3eff924e2d9278205e66b824ceec51856d5a7.tar.lz
nawp-5aa3eff924e2d9278205e66b824ceec51856d5a7.tar.xz
nawp-5aa3eff924e2d9278205e66b824ceec51856d5a7.tar.zst
nawp-5aa3eff924e2d9278205e66b824ceec51856d5a7.zip
Remove dummy values from atom feed.0.1
-rwxr-xr-xnawp.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/nawp.scm b/nawp.scm
index 4041d97..df8fa7c 100755
--- a/nawp.scm
+++ b/nawp.scm
@@ -198,7 +198,7 @@
;; What should an empty feed look like?
(when (null? posts) (http-fail 503 "Service unavailable."))
(make-atom-doc
- (make-feed id: "foo" title: (make-title "foo")
+ (make-feed id: (uri->string blog-base-uri) title: (make-title blog-title)
updated: (seconds->rfc3339-string (list-max (map post-timestamp posts)))
entries: (map atom-entry posts)))))