From a6f5b37cd22daa6069d8fbef8cba9dc60a6731f6 Mon Sep 17 00:00:00 2001
From: Philip McGrath <philip@philipmcgrath.com>
Date: Sun, 24 Jul 2022 23:54:19 -0400
Subject: [PATCH] `AnyStyle::Data.setup()`: adjust for immutable install

Don't override the default paths for `Dictionary::Marshal`,
`Dictionary::GDBM`, and `Dictionary:LDBM` to point to this gem: we can't
populate such files without the 'anystyle' gem (which depends on this
one), and we won't be able to write to the directory where this gem is
installed later, so the files will never exist at those locations.
---
 lib/anystyle/data/setup.rb | 12 ------------
 1 file changed, 12 deletions(-)

diff --git a/lib/anystyle/data/setup.rb b/lib/anystyle/data/setup.rb
index 17efdf8..08246fa 100644
--- a/lib/anystyle/data/setup.rb
+++ b/lib/anystyle/data/setup.rb
@@ -4,18 +4,6 @@ module AnyStyle
 
     def self.setup
       Dictionary.defaults[:source] = File.join(ROOT, 'dict.txt.gz')
-
-      if defined? Dictionary::Marshal
-        Dictionary::Marshal.defaults[:path] = File.join(ROOT, 'dict.marshal')
-      end
-
-      if defined? Dictionary::GDBM
-        Dictionary::GDBM.defaults[:path] = File.join(ROOT, 'dict.db')
-      end
-
-      if defined? Dictionary::LDBM
-        Dictionary::LDBM.defaults[:path] = ROOT
-      end
     end
   end
 end
-- 
2.32.0

ystems.scm?id=3dc8052b51241fe7857059d3300dad3a0f9f68fd'>commit</a><a href='/guix/diff/tests/file-systems.scm?id=3dc8052b51241fe7857059d3300dad3a0f9f68fd'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/tests/file-systems.scm'>
<input type='hidden' name='id' value='3dc8052b51241fe7857059d3300dad3a0f9f68fd'/><select name='qt'>
<option value='grep'>log msg</option>
<option value='author'>author</option>
<option value='committer'>committer</option>
<option value='range'>range</option>
</select>
<input class='txt' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/guix/log/?id=3dc8052b51241fe7857059d3300dad3a0f9f68fd'>root</a>/<a href='/guix/log/tests?id=3dc8052b51241fe7857059d3300dad3a0f9f68fd'>tests</a>/<a href='/guix/log/tests/file-systems.scm?id=3dc8052b51241fe7857059d3300dad3a0f9f68fd'>file-systems.scm</a></div><div class='content'><table class='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/lo<tr><td><span title='2021-11-16 14:34:28 +0100'>2021-11-16</span></td><td><a href='/guix/commit/config-daemon.ac?id=472a0e82a52a3d5d841e1dfad6b13e26082a5750'>daemon: Do not deduplicate files smaller than 8 KiB.</a><span class='msg-avail'>...<span class='msg-tooltip'>Files smaller than 8 KiB typically represent ~70% of the entries in
/gnu/store/.links but only contribute to ~4% of the space savings
afforded by deduplication.

Not considering these files for deduplication speeds up file insertion
in the store and, more importantly, leaves 'removeUnusedLinks' with
fewer entries to traverse, thereby speeding it up proportionally.

Partly fixes &lt;https://issues.guix.gnu.org/24937&gt;.

* config-daemon.ac: Remove symlink hard link check and CAN_LINK_SYMLINK
definition.
* guix/store/deduplication.scm (%deduplication-minimum-size): New
variable.
(deduplicate)[loop]: Do not recurse when FILE's size is below
%DEDUPLICATION-MINIMUM-SIZE.
(dump-port): New procedure.
(dump-file/deduplicate)[hash]: Turn into...
[dump-and-compute-hash]: ... this thunk.
Call 'deduplicate' only when SIZE is greater than
%DEDUPLICATION-MINIMUM-SIZE; otherwise call 'dump-port'.
* nix/libstore/gc.cc (LocalStore::removeUnusedLinks): Drop files where
st.st_size &lt; deduplicationMinSize.
* nix/libstore/local-store.hh (deduplicationMinSize): New declaration.
* nix/libstore/optimise-store.cc (deduplicationMinSize): New variable.
(LocalStore::optimisePath_): Return when PATH is a symlink or smaller
than 'deduplicationMinSize'.
* tests/derivations.scm ("identical files are deduplicated"): Produce
files bigger than %DEDUPLICATION-MINIMUM-SIZE.
* tests/nar.scm ("restore-file-set with directories (signed, valid)"):
Likewise.
* tests/store-deduplication.scm ("deduplicate, below %deduplication-minimum-size"):
New test.
("deduplicate", "deduplicate, ENOSPC"): Produce files bigger than
%DEDUPLICATION-MINIMUM-SIZE.
* tests/store.scm ("substitute, deduplication"): Likewise.
</span></span></td><td>Ludovic Courtès</td></tr>
..<span class='msg-tooltip'>* gnu/system/file-systems.scm (file-system-options-&gt;alist)
(alist-&gt;file-system-options): New procedures.
* tests/file-systems.scm: New tests.
* doc/guix.texi (File Systems): Add note about the newly added procedures.
</span></span></td><td>Maxim Cournoyer</td></tr>