summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xguix-web4
1 files changed, 2 insertions, 2 deletions
diff --git a/guix-web b/guix-web
index 4afc56a..1dcf5a3 100755
--- a/guix-web
+++ b/guix-web
@@ -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)))