diff options
-rwxr-xr-x | guix-web | 8 |
1 files changed, 3 insertions, 5 deletions
@@ -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))) |