03/06: publish: Use 'sendfile' when possible.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit 339a79fd6aec74f0b7520440e01b8bf79eca73e7
Author: Ludovic Courtès <address@hidden>
Date:   Tue Apr 18 00:28:39 2017 +0200

    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.
---
 guix/scripts/publish.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/guix/scripts/publish.scm b/guix/scripts/publish.scm
index 111cb29..f54757b 100644
--- 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