From ef683fe75c5eacdc93c08367f8dccc0e7478eb57 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Mon, 10 Aug 2020 15:13:59 +0200 Subject: Repair /today. --- module/entry-points/server.scm | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/module/entry-points/server.scm b/module/entry-points/server.scm index 5b819176..0d2f84b2 100644 --- a/module/entry-points/server.scm +++ b/module/entry-points/server.scm @@ -243,18 +243,18 @@ ;; form of evaluation when clicked. (GET "/today" (view date) (define location - (parse-header 'location - (format #f "/~a/~a.html" - (or view "week") - (date->string - (cond [date => parse-iso-date] - [else (current-date)]) - "~1"))) ) + (build-relative-ref + path: + (format #f "/~a/~a.html" + (or view "week") + (date->string + (cond [date => parse-iso-date] + [else (current-date)]) + "~1"))) ) (return (build-response code: 302 - headers: `((location ,location))) - "")) + headers: `((location . ,location))))) (GET "/calendar" (start end) (return '((content-type text/calendar)) -- cgit v1.2.3