summaryrefslogtreecommitdiff
path: root/extra/http/server.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'extra/http/server.lisp')
-rw-r--r--extra/http/server.lisp2
1 files changed, 1 insertions, 1 deletions
diff --git a/extra/http/server.lisp b/extra/http/server.lisp
index 0ad85e4..97d45d0 100644
--- a/extra/http/server.lisp
+++ b/extra/http/server.lisp
@@ -47,7 +47,7 @@
(let ((path (merge-pathnames directory (string-upcase (quri:urn-nss uri)))))
(unless (uiop:file-exists-p path)
(with-open-file (f path :direction :output :if-does-not-exist :create :element-type 'octet)
- (alexandria:copy-stream body f :element-type 'octet :buffer #.(make-octet-vector 4096)))))
+ (alexandria:copy-stream body f :element-type 'octet))))
'(200 (:content-type "text/plain") ("Unauthorized."))))