[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

37/104: services: shepherd: Silence Guile warnings.

From: guix-commits
Subject: 37/104: services: shepherd: Silence Guile warnings.
Date: Sun, 17 May 2020 11:36:34 -0400 (EDT)

nckx pushed a commit to branch core-updates
in repository guix.

commit 0509925171130281e777fcd41c3469eed3dc7300
Author: Ludovic Courtès <address@hidden>
AuthorDate: Fri May 15 22:37:39 2020 +0200

    services: shepherd: Silence Guile warnings.
    This avoids:
      WARNING: …: imported module (guix build utils) overrides core binding 
    * gnu/services/shepherd.scm (%default-modules): #:hide 'delete'
    from (guix build utils).
    (shepherd-configuration-file)[config]: Wrap calls to 'load-compiled' in
 gnu/services/shepherd.scm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/gnu/services/shepherd.scm b/gnu/services/shepherd.scm
index 826a3c2..77c4d0a 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."
             (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)

reply via email to

[Prev in Thread] Current Thread [Next in Thread]