diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2020-05-15 22:37:39 +0200 |
|---|---|---|
| committer | Tobias Geerinckx-Rice <me@tobias.gr> | 2020-05-17 15:16:49 +0200 |
| commit | 0509925171130281e777fcd41c3469eed3dc7300 (patch) | |
| tree | 33d9081260a35d6bed374f62fe78cf6a62079a1d | |
| parent | ba45d9883d77fff422d538c500d5819062292c21 (diff) | |
| download | guix-0509925171130281e777fcd41c3469eed3dc7300.tar.gz guix-0509925171130281e777fcd41c3469eed3dc7300.zip | |
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.scm | 6 |
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) |