diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2020-06-25 10:15:38 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2020-06-25 12:29:23 +0200 |
| commit | 6b654a33324d3b9b122512fce2d4440ea06b46e6 (patch) | |
| tree | 55e2887a0ff364ecc648eab675c17b1653840314 | |
| parent | d52e16d3b68b4f5e748b4d6014d4a9c207266ade (diff) | |
| download | guix-6b654a33324d3b9b122512fce2d4440ea06b46e6.tar guix-6b654a33324d3b9b122512fce2d4440ea06b46e6.tar.gz | |
deduplication: Fix default value of #:store in 'deduplicate'.
* guix/store/deduplication.scm (deduplicate): Change #:store default
value to (%store-directory).
| -rw-r--r-- | guix/store/deduplication.scm | 2 |
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 |