~ruther/guix-local: services: shepherd: Silence Guile warnings.

408ae72cd1f519bfb4c10da7eb93466642660312 — Ludovic Courtès 6 years ago 12adffd

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'.

patch browse .tar.gz .zip

1 files changed, 4 insertions(+), 2 deletions(-)

M gnu/services/shepherd.scm

M gnu/services/shepherd.scm => gnu/services/shepherd.scm +4 -2

@@ 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)