summaryrefslogtreecommitdiff
path: root/guix/store/deduplication.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2020-06-25 10:15:38 +0200
committerLudovic Courtès <ludo@gnu.org>2020-06-25 12:29:23 +0200
commit6b654a33324d3b9b122512fce2d4440ea06b46e6 (patch)
tree55e2887a0ff364ecc648eab675c17b1653840314 /guix/store/deduplication.scm
parentd52e16d3b68b4f5e748b4d6014d4a9c207266ade (diff)
deduplication: Fix default value of #:store in 'deduplicate'.
* guix/store/deduplication.scm (deduplicate): Change #:store default value to (%store-directory).
Diffstat (limited to 'guix/store/deduplication.scm')
-rw-r--r--guix/store/deduplication.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/guix/store/deduplication.scm b/guix/store/deduplication.scm
index af52c03370..6c0f57dd79 100644
--- a/guix/store/deduplication.scm
+++ b/guix/store/deduplication.scm
@@ -143,7 +143,7 @@ Note: TARGET, TO-REPLACE, and SWAP-DIRECTORY must be on the same file system."
(unless (= EMLINK (system-error-errno args))
(apply throw args)))))))
-(define* (deduplicate path hash #:key (store %store-directory))
+(define* (deduplicate path hash #:key (store (%store-directory)))
"Check if a store item with sha256 hash HASH already exists. If so,
replace PATH with a hardlink to the already-existing one. If not, register
PATH so that future duplicates can hardlink to it. PATH is assumed to be