From aa44c16ce953c090b2eb3ce580c60fa8934a7720 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Thu, 30 Apr 2020 19:17:35 +0200 Subject: Change call signature for [gs]etf. --- module/entry-points/server.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'module/entry-points') 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)) -- cgit v1.2.3