From 10d39d1fc6c6c9a9e4d17563c82fe98aa072da77 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Sat, 1 Aug 2020 21:00:02 +0200 Subject: Play around with sql. --- module/output/html.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'module/output/html.scm') diff --git a/module/output/html.scm b/module/output/html.scm index 8877de95..29f2140a 100644 --- a/module/output/html.scm +++ b/module/output/html.scm @@ -820,7 +820,7 @@ (define-method (html-chunked-main count start-date chunk-length) (define calendars (getf 'calendars)) - (define events (getf 'event-set)) + (define events (car (getf 'event-set))) ((@ (util time) report-time!) "html start") @@ -855,7 +855,7 @@ (define-method (html-table-main count start-date) (define calendars (getf 'calendars)) - (define events (getf 'event-set)) + (define events (car (getf 'event-set))) (create-files) -- cgit v1.2.3