diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-07-13 01:49:17 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-07-13 01:49:17 +0200 |
commit | a8df6d53a53e34c289154fa0e24226c6d7080f18 (patch) | |
tree | c61a7e4d432a5f5e45cad03c7e75f7ab57b2ecee /module/entry-points/server.scm | |
parent | Fix popup movement. (diff) | |
download | calp-a8df6d53a53e34c289154fa0e24226c6d7080f18.tar.gz calp-a8df6d53a53e34c289154fa0e24226c6d7080f18.tar.xz |
Minor cleanup.
Diffstat (limited to 'module/entry-points/server.scm')
-rw-r--r-- | module/entry-points/server.scm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/module/entry-points/server.scm b/module/entry-points/server.scm index fc832c13..64204b9d 100644 --- a/module/entry-points/server.scm +++ b/module/entry-points/server.scm @@ -70,6 +70,8 @@ (return '((content-type text/html)) (sxml->html-string '(a (@ (href "/today")) "Gå till idag")))) + ;; TODO any exception in this causes the whole page to fail + ;; It would be much better if most of the page could still make it. (GET "/week/:start-date.html" (start-date) (let* ((start-date (start-of-week (parse-iso-date start-date) |