diff options
| -rw-r--r-- | guix/store/deduplication.scm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/guix/store/deduplication.scm b/guix/store/deduplication.scm index 9953675319a..acb6ffcc4a5 100644 --- a/guix/store/deduplication.scm +++ b/guix/store/deduplication.scm | |||
| @@ -262,7 +262,10 @@ down the road." | |||
| 262 | (deduplicate file (dump-and-compute-hash) #:store store) | 262 | (deduplicate file (dump-and-compute-hash) #:store store) |
| 263 | (call-with-output-file file | 263 | (call-with-output-file file |
| 264 | (lambda (output) | 264 | (lambda (output) |
| 265 | (sendfile output input size 0))))) | 265 | (if (file-port? input) |
| 266 | (sendfile output input size 0) | ||
| 267 | (dump-port input output size | ||
| 268 | #:buffer-size %deduplication-minimum-size)))))) | ||
| 266 | 269 | ||
| 267 | (define* (copy-file/deduplicate source target | 270 | (define* (copy-file/deduplicate source target |
| 268 | #:key (store (%store-directory))) | 271 | #:key (store (%store-directory))) |