summary refs log tree commit diff
path: root/.dir-locals.el
diff options
context:
space:
mode:
authorCaleb Ristvedt <caleb.ristvedt@cune.org>2020-08-08 10:05:22 -0500
committerLudovic Courtès <ludo@gnu.org>2020-09-14 10:51:26 +0200
commit14c422c12c86126cfb5ca7e1641bbcd78d02f711 (patch)
tree1c02da6f129ad64454737fe72a513e5bd9b8106a /.dir-locals.el
parent1d40e6fdd1898d94d9611b01ebd893aab72dec54 (diff)
downloadguix-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.el2
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))