diff options
-rwxr-xr-x | guix-web | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -20,6 +20,7 @@ (use-modules (ice-9 rdelim) (ice-9 match) + (ice-9 binary-ports) (srfi srfi-1) (srfi srfi-26) ((system repl server) @@ -59,8 +60,7 @@ (not (directory? filename)) (list `((content-type . ,(assoc-ref file-mime-types (file-extension filename)))) - (with-input-from-file filename - read-string))))) + (call-with-input-file filename get-bytevector-all))))) (define (render-html sxml) (list '((content-type . (text/html))) |