diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-01 21:00:02 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-01 21:00:02 +0200 |
commit | 10d39d1fc6c6c9a9e4d17563c82fe98aa072da77 (patch) | |
tree | 3de6da2755e35b7a03f793880402a05cc3c3f14a /module/output/html.scm | |
parent | Add sqlite3.scm from Guile-sqlite. (diff) | |
download | calp-10d39d1fc6c6c9a9e4d17563c82fe98aa072da77.tar.gz calp-10d39d1fc6c6c9a9e4d17563c82fe98aa072da77.tar.xz |
Play around with sql.sql
Diffstat (limited to 'module/output/html.scm')
-rw-r--r-- | module/output/html.scm | 4 |
1 files changed, 2 insertions, 2 deletions
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) |