;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2020 Mathieu Othacehe ;;; ;;; 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 . (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: /commit/po/packages/POTFILES.in?id=59f4eafddaee9009ec202f214467661e75a74031'>commitdiff
AgeCommit message (Expand)Author