diff options
Diffstat (limited to 'module/output/html.scm')
-rw-r--r-- | module/output/html.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/module/output/html.scm b/module/output/html.scm index d3a5b8be..f3ed6dc8 100644 --- a/module/output/html.scm +++ b/module/output/html.scm @@ -21,6 +21,8 @@ #:use-module ((vcomponent instance methods) :select (get-calendars get-event-set)) + #:use-module ((sxml simple) :select (sxml->xml)) + #:autoload (vcomponent instance) (global-event-object) ) @@ -56,7 +58,7 @@ (lambda (start-date) (define fname (get-filename start-date)) (format (current-error-port) "Writing to [~a]~%" fname) - (with-output-to-file fname (lambda () (proc calendars events)) )) + (with-output-to-file fname (lambda () (sxml->xml (proc calendars events))) )) (stream-take count (date-stream chunk-length start-date)) )) |