From 6b654a33324d3b9b122512fce2d4440ea06b46e6 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Thu, 25 Jun 2020 10:15:38 +0200 Subject: deduplication: Fix default value of #:store in 'deduplicate'. * guix/store/deduplication.scm (deduplicate): Change #:store default value to (%store-directory). --- guix/store/deduplication.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'guix/store') 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 -- cgit v1.2.3