Html-generate now returns sxml.

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))
    ))