summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--tissue/web/server.scm12
1 files changed, 2 insertions, 10 deletions
diff --git a/tissue/web/server.scm b/tissue/web/server.scm
index 25ece4b..8f967b9 100644
--- a/tissue/web/server.scm
+++ b/tissue/web/server.scm
@@ -333,16 +333,8 @@ STATE-DIRECTORY."
(values `((content-type . ,(or (assoc-ref %mime-types (string-remove-prefix
"." (file-name-extension file-path)))
'(application/octet-stream))))
- ;; Return a procedure so that the file can be
- ;; read out a little at a time instead of having
- ;; to load it whole into memory.
- (lambda (out)
- (call-with-input-file file-path
- (lambda (in)
- (port-transduce (tmap (cut put-bytevector out <>))
- (const #t)
- get-bytevector-some
- in)))))))
+ (call-with-input-file file-path
+ get-bytevector-all))))
;; Not found
(else
(values (build-response #:code 404)