summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xguix-web8
1 files changed, 3 insertions, 5 deletions
diff --git a/guix-web b/guix-web
index 6031122..0b322e9 100755
--- a/guix-web
+++ b/guix-web
@@ -64,11 +64,9 @@
(define (render-html sxml)
(list '((content-type . (text/html)))
- (string-append
- "<!DOCTYPE html>\n"
- (with-output-to-string
- (lambda ()
- (sxml->xml sxml))))))
+ (lambda (port)
+ (display "<!DOCTYPE html>" port)
+ (sxml->xml sxml port))))
(define (render-json json)
(list '((content-type . (application/json)))