From 05be4a61ddfde13ea4f01dca29877992c7b4f965 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Sun, 24 May 2020 17:30:29 +0200
Subject: Minor change.

---
 module/entry-points/server.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'module/entry-points/server.scm')

diff --git a/module/entry-points/server.scm b/module/entry-points/server.scm
index c671867d..ceefc5b9 100644
--- a/module/entry-points/server.scm
+++ b/module/entry-points/server.scm
@@ -113,7 +113,7 @@
         (define location
           (parse-header 'location
                         (format #f "/~a/~a.html"
-                                (or view "month")
+                                (or view "week")
                                 (date->string
                                  (cond [date => parse-iso-date]
                                        [else (current-date)])
-- 
cgit v1.2.3