diff options
| -rw-r--r-- | guix/scripts/publish.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/guix/scripts/publish.scm b/guix/scripts/publish.scm index 111cb29bca..f54757b4c9 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 |