summary refs log tree commit diff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2020-05-15 22:37:39 +0200
committerLudovic Courtès <ludo@gnu.org>2020-05-16 00:34:41 +0200
commit408ae72cd1f519bfb4c10da7eb93466642660312 (patch)
tree6928628b26371ec27a0e3ee82ccbe4cd6754b00a
parent12adffd43efe381e9d634d01242ba1988c65ce5c (diff)
downloadguix-408ae72cd1f519bfb4c10da7eb93466642660312.tar.gz
services: shepherd: Silence Guile warnings.
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'.
-rw-r--r--gnu/services/shepherd.scm6
1 files changed, 4 insertions, 2 deletions
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* <shepherd-service>
@@ -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)