diff options
Diffstat (limited to 'module/output')
| -rw-r--r-- | module/output/html.scm | 4 | ||||
| -rw-r--r-- | module/output/terminal.scm | 2 |
2 files changed, 3 insertions, 3 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) diff --git a/module/output/terminal.scm b/module/output/terminal.scm index f4f46272..839b9275 100644 --- a/module/output/terminal.scm +++ b/module/output/terminal.scm @@ -337,7 +337,7 @@ (else (next-method)))) (app/define-method (main-loop date) - (define state (list (day-view (app/getf 'event-set) date))) + (define state (list (day-view (car (app/getf 'event-set)) date))) (while #t (output (car state)) |