aboutsummaryrefslogtreecommitdiff
path: root/module/entry-points/server.scm
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--module/entry-points/server.scm8
1 files changed, 4 insertions, 4 deletions
diff --git a/module/entry-points/server.scm b/module/entry-points/server.scm
index 6a4558a6..3dab6e9c 100644
--- a/module/entry-points/server.scm
+++ b/module/entry-points/server.scm
@@ -64,8 +64,8 @@
(return '((content-type text/html))
(with-output-to-string
(lambda ()
- (html-generate calendars: (getf app 'calendars)
- events: (getf app 'event-set)
+ (html-generate calendars: (getf 'calendars)
+ events: (getf 'event-set)
start-date: start-date
end-date: (date+ start-date (date day: 6))
next-start: (lambda (d) (date+ d (date day: 7)))
@@ -79,8 +79,8 @@
(return '((content-type text/html))
(with-output-to-string
(lambda ()
- (html-generate calendars: (getf app 'calendars)
- events: (getf app 'event-set)
+ (html-generate calendars: (getf 'calendars)
+ events: (getf 'event-set)
start-date: start-date
end-date: (date- (month+ start-date)
(date day: 1))