diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-10 15:13:59 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-10 15:13:59 +0200 |
| commit | ef683fe75c5eacdc93c08367f8dccc0e7478eb57 (patch) | |
| tree | c6e142e442e4d342eb54c7beede4313de4c2ff79 | |
| parent | Add comment about final page. (diff) | |
| download | calp-ef683fe75c5eacdc93c08367f8dccc0e7478eb57.tar.gz calp-ef683fe75c5eacdc93c08367f8dccc0e7478eb57.tar.xz | |
Repair /today.
| -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)) |