From e0b058a1b3a6e1552c2aa5c1a24ed82a8c8e1e7b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Mon, 4 May 2020 18:35:59 +0200
Subject: Fix /today? when intervaltype is something else.

---
 module/output/html.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/module/output/html.scm b/module/output/html.scm
index d2762f46..eb675005 100644
--- a/module/output/html.scm
+++ b/module/output/html.scm
@@ -690,7 +690,8 @@
                                 href: (string-append
                                        "/today?" (case intervaltype
                                                     [(month) "view=month"]
-                                                    [(week) "view=week"]))
+                                                    [(week) "view=week"]
+                                                    [else ""]))
                                 "idag"))
 
                      (div (@ (class "jump-to"))
-- 
cgit v1.2.3