diff options
Diffstat (limited to 'module/entry-points/server.scm')
| -rw-r--r-- | module/entry-points/server.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/module/entry-points/server.scm b/module/entry-points/server.scm index 5c3108cc..330ca3dd 100644 --- a/module/entry-points/server.scm +++ b/module/entry-points/server.scm @@ -78,7 +78,7 @@ (with-output-to-string (lambda () (html-generate calendars: (getf 'calendars) - events: (getf 'event-set) + events: (car (getf 'event-set)) start-date: start-date end-date: (date+ start-date (date day: 6)) next-start: (lambda (d) (date+ d (date day: 7))) @@ -94,7 +94,7 @@ (with-output-to-string (lambda () (html-generate calendars: (getf 'calendars) - events: (getf 'event-set) + events: (car (getf 'event-set)) start-date: start-date end-date: (date- (month+ start-date) (date day: 1)) |