deduplication: pass store directory to replace-with-link.
authorCaleb Ristvedt <caleb.ristvedt@cune.org>
Sat, 8 Aug 2020 15:05:22 +0000 (10:05 -0500)
committerLudovic Courtès <ludo@gnu.org>
Mon, 14 Sep 2020 08:51:26 +0000 (10:51 +0200)
commit14c422c12c86126cfb5ca7e1641bbcd78d02f711
tree1c02da6f129ad64454737fe72a513e5bd9b8106a
parent1d40e6fdd1898d94d9611b01ebd893aab72dec54
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>
.dir-locals.el
guix/store/deduplication.scm