From 1f0bf09f66e5ddee2e9779e73b40e5d78bcc8370 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Thu, 14 May 2020 17:45:26 +0200 Subject: server /month/ round to start of month. --- module/entry-points/server.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'module') diff --git a/module/entry-points/server.scm b/module/entry-points/server.scm index deda98b4..6fb2b6b5 100644 --- a/module/entry-points/server.scm +++ b/module/entry-points/server.scm @@ -87,7 +87,7 @@ )))))) (GET "/month/:start-date.html" (start-date) - (let* ((start-date (parse-iso-date start-date))) + (let* ((start-date (start-of-month (parse-iso-date start-date)))) (return '((content-type text/html)) (with-output-to-string -- cgit v1.2.3