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/output/html.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'module/output/html.scm') diff --git a/module/output/html.scm b/module/output/html.scm index 740be7b9..702d229d 100644 --- a/module/output/html.scm +++ b/module/output/html.scm @@ -748,8 +748,8 @@ (define-method (html-chunked-main count start-date chunk-length) - (define calendars (getf app 'calendars)) - (define events (getf app 'event-set)) + (define calendars (getf 'calendars)) + (define events (getf 'event-set)) ;; TODO This still doesn't account for PWD, file existing but is of ;; wrong type, html directory existing but static symlink missing, @@ -786,8 +786,8 @@ (define-method (html-table-main count start-date) - (define calendars (getf app 'calendars)) - (define events (getf app 'event-set)) + (define calendars (getf 'calendars)) + (define events (getf 'event-set)) ;; TODO same file creation as in html-chunked-main (stream-for-each -- cgit v1.2.3