;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2020 Mathieu Othacehe <m.othacehe@gmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
;;; GNU Guix is free software; you can redistribute it and/or modify it
;;; under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 3 of the License, or (at
;;; your option) any later version.
;;;
;;; GNU Guix is distributed in the hope that it will be useful, but
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;;; GNU General Public License for more details.
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.

(define-module (gnu installer substitutes)
  #:use-module (gnu installer utils)
  #:use-module (gnu services herd)
  #:export (enable-discovery
            disable-discovery))

(define (enable-discovery)
  (with-silent-shepherd
    (with-shepherd-action 'guix-daemon
        ('discover "on")
        result
      result)))

(define (disable-discovery)
  (with-silent-shepherd
    (with-shepherd-action 'guix-daemon
        ('discover "off")
        result
      result)))

;; Local Variables:
;; eval: (put 'with-silent-shepherd 'scheme-indent-function 0)
;; End:
e4a209e42687e29'>commit</a><a href='/guix/diff/nix/libutil?id=5855813f772653c2cfe03d2a7e4a209e42687e29'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/nix/libutil'>
<input type='hidden' name='id' value='5855813f772653c2cfe03d2a7e4a209e42687e29'/><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=5855813f772653c2cfe03d2a7e4a209e42687e29'>root</a>/<a href='/guix/log/nix?id=5855813f772653c2cfe03d2a7e4a209e42687e29'>nix</a>/<a href='/guix/log/nix/libutil?id=5855813f772653c2cfe03d2a7e4a209e42687e29'>libutil</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/log/nix/libutil?id=5855813f772653c2cfe03d2a7e4a209e42687e29&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2020-01-12 00:19:09 +0100'>2020-01-12</span></td><td><a href='/guix/commit/nix/libutil?id=7033c7692ccbbbad8f7b9952015de071a5588e87'>daemon: Account for deleted store files when deduplication is on.</a><span class='msg-avail'>...<span class='msg-tooltip'>Previously, a store item that is a regular file would not be accounted
for in the 'bytesFreed' value computed by 'deletePath' because its
'st_nlink' count would always be &gt;= 2.  This commit fixes that.

* nix/libutil/util.hh (deletePath): Add optional 'linkThreshold' argument.
* nix/libutil/util.cc (_deletePath): Add 'linkThreshold' argument and
honor it.  Pass it down in recursive call.
(deletePath): Add 'linkThreshold' and honor it.
* nix/libstore/gc.cc (LocalStore::deleteGarbage): Pass 'linkThreshold'
argument to 'deletePath', with a value of 2 when PATH is a store item
and deduplication is on.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2019-11-29 15:54:20 +0100'>2019-11-29</span></td><td><a href='/guix/commit/nix/libutil?id=b6b014bf42f68fcb71d37204328babb81e0e0855'>daemon: 'pathExists' uses 'statx' when available.</a><span class='msg-avail'>...<span class='msg-tooltip'>* nix/libutil/util.cc (pathExists) [HAVE_STATX]: New code.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2019-11-27 00:03:03 +0100'>2019-11-27</span></td><td><a href='/guix/commit/nix/libutil?id=fbecb5cddb2d36cc1a29dac3751b017fa531383c'>daemon: 'deletePath' uses 'statx' when available.</a><span class='msg-avail'>...<span class='msg-tooltip'>* nix/libutil/util.cc (_deletePath) [HAVE_STATX]: Use 'statx'.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2019-08-30 01:33:45 +0200'>2019-08-30</span></td><td><a href='/guix/commit/nix/libutil?id=546a709f202024c8a5173ad372a87ddc1c284c63'>daemon: Don't reply on 'st_blocks'.</a><span class='msg-avail'>...<span class='msg-tooltip'>Ported by Ludovic Courtès &lt;ludo@gnu.org&gt;
from &lt;https://github.com/NixOS/nix/commit/a2c4fcd5e9782dc8d2998773380c7171ee53b813&gt;.

* nix/libstore/gc.cc (LocalStore::removeUnusedLinks): Use 'st.st_size'
instead of 'st.st_blocks * 512'.
* nix/libutil/util.cc (_deletePath): Likewise.
</span></span></td><td>Eelco Dolstra</td></tr>