publish: Use 'sendfile' when possible.

* guix/scripts/publish.scm (http-write): In the 'application/octet-stream' case, use 'sendfile' when OUTPUT is a file port.
2017-04-18 00:28:39 +02:00 · 2017-04-18 00:28:39 +02:00 · 339a79fd6a
commit 339a79fd6a
parent 905ae5276d
1 changed files with 3 additions and 1 deletions
--- a/guix/scripts/publish.scm
+++ b/guix/scripts/publish.scm
@ -469,7 +469,9 @@ blocking."
                                                                      size)
                                                 client))
                       (output   (response-port response)))
-                  (dump-port input output)
+                  (if (file-port? output)
+                      (sendfile output input size)
+                      (dump-port input output))
                  (close-port output)
                  (values)))))
          (lambda args