diff options
Diffstat (limited to '')
-rw-r--r-- | module/entry-points/server.scm | 18 |
1 files 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)) |