[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
07/07: services: shepherd: Silence Guile warnings.
From: |
guix-commits |
Subject: |
07/07: services: shepherd: Silence Guile warnings. |
Date: |
Fri, 15 May 2020 18:34:54 -0400 (EDT) |
civodul pushed a commit to branch master
in repository guix.
commit 408ae72cd1f519bfb4c10da7eb93466642660312
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
`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(-)
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."
(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)
- branch master updated (a7b2022 -> 408ae72), guix-commits, 2020/05/15
- 01/07: bootloader: grub: Refer to the native 'grub-mklayout' and font file., guix-commits, 2020/05/15
- 03/07: gexp: Add 'let-system'., guix-commits, 2020/05/15
- 04/07: utils: 'target-arm32?' & co. take an optional parameter., guix-commits, 2020/05/15
- 07/07: services: shepherd: Silence Guile warnings.,
guix-commits <=
- 06/07: linux-initrd: Silence Guile warnings., guix-commits, 2020/05/15
- 05/07: vm: Use 'let-system'., guix-commits, 2020/05/15
- 02/07: gexp: Compilers can now return lowerable objects., guix-commits, 2020/05/15