From 408ae72cd1f519bfb4c10da7eb93466642660312 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Fri, 15 May 2020 22:37:39 +0200 Subject: services: shepherd: Silence Guile warnings. MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit This avoids: WARNING: …: imported module (guix build utils) overrides core binding `delete' * gnu/services/shepherd.scm (%default-modules): #:hide 'delete' from (guix build utils). (shepherd-configuration-file)[config]: Wrap calls to 'load-compiled' in 'parameterize'. --- gnu/services/shepherd.scm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'gnu/services') diff --git a/gnu/services/shepherd.scm b/gnu/services/shepherd.scm index 826a3c2215..77c4d0a8be 100644 --- a/gnu/services/shepherd.scm +++ b/gnu/services/shepherd.scm @@ -146,7 +146,7 @@ DEFAULT is given, use it as the service's default value." ;; Default set of modules visible in a service's file. `((shepherd service) (oop goops) - (guix build utils) + ((guix build utils) #:hide (delete)) (guix build syscalls))) (define-record-type* @@ -315,7 +315,9 @@ and return the resulting '.go' file." (call-with-error-handling (lambda () (apply register-services - (map load-compiled '#$(map scm->go files))))) + (parameterize ((current-warning-port + (%make-void-port "w"))) + (map load-compiled '#$(map scm->go files)))))) (format #t "starting services...~%") (for-each (lambda (service) -- cgit v1.2.3