diff options
| author | Caleb Ristvedt <caleb.ristvedt@cune.org> | 2020-08-08 10:05:22 -0500 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2020-09-14 10:51:26 +0200 |
| commit | 14c422c12c86126cfb5ca7e1641bbcd78d02f711 (patch) | |
| tree | 1c02da6f129ad64454737fe72a513e5bd9b8106a /.dir-locals.el | |
| parent | 1d40e6fdd1898d94d9611b01ebd893aab72dec54 (diff) | |
| download | guix-14c422c12c86126cfb5ca7e1641bbcd78d02f711.tar guix-14c422c12c86126cfb5ca7e1641bbcd78d02f711.tar.gz | |
deduplication: pass store directory to replace-with-link.
This causes with-writable-file to take into consideration the actual store
being used, as passed to 'deduplicate', rather than
whatever (%store-directory) may return.
* guix/store/deduplication.scm (replace-with-link): new keyword argument
'store'. Pass to with-writable-file.
(with-writable-file, call-with-writable-file): new store argument.
(deduplicate): pass store to replace-with-link.
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
Diffstat (limited to '.dir-locals.el')
| -rw-r--r-- | .dir-locals.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/.dir-locals.el b/.dir-locals.el index 5954e313f2..7f310d2612 100644 --- a/.dir-locals.el +++ b/.dir-locals.el @@ -37,7 +37,7 @@ (eval . (put 'with-file-lock 'scheme-indent-function 1)) (eval . (put 'with-file-lock/no-wait 'scheme-indent-function 1)) (eval . (put 'with-profile-lock 'scheme-indent-function 1)) - (eval . (put 'with-writable-file 'scheme-indent-function 1)) + (eval . (put 'with-writable-file 'scheme-indent-function 2)) (eval . (put 'package 'scheme-indent-function 0)) (eval . (put 'package/inherit 'scheme-indent-function 1)) |