diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2022-12-12 15:03:35 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2022-12-12 15:03:35 +0100 |
| commit | 302a84a593e4be417d739caf4e5385df536e3943 (patch) | |
| tree | 3e9e908e52e3d4a141552d8fda9a7fbe2d41637c /guix | |
| parent | 3677b97030e5954fa26bdb435e0d3379a1a4ec43 (diff) | |
| parent | 6dbdb5fcf5640c126ac65479b835aba83aea2a6d (diff) | |
Merge branch 'version-1.4.0'
Diffstat (limited to 'guix')
| -rw-r--r-- | guix/store/deduplication.scm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/guix/store/deduplication.scm b/guix/store/deduplication.scm index ab982e3b3d..acb6ffcc4a 100644 --- a/guix/store/deduplication.scm +++ b/guix/store/deduplication.scm @@ -1,6 +1,6 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2017 Caleb Ristvedt <caleb.ristvedt@cune.org> -;;; Copyright © 2018-2021 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2018-2022 Ludovic Courtès <ludo@gnu.org> ;;; ;;; This file is part of GNU Guix. ;;; @@ -262,7 +262,10 @@ down the road." (deduplicate file (dump-and-compute-hash) #:store store) (call-with-output-file file (lambda (output) - (dump-port input output size))))) + (if (file-port? input) + (sendfile output input size 0) + (dump-port input output size + #:buffer-size %deduplication-minimum-size)))))) (define* (copy-file/deduplicate source target #:key (store (%store-directory))) |