ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 21:38:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

services: shepherd: Silence Guile warnings.

Browse source 
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'.
This commit is contained in:
Ludovic Courtès 2020-05-15 22:37:39 +02:00
parent 12adffd43e
commit 408ae72cd1
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
gnu/services/shepherd.scm
View file

@ -146,7 +146,7 @@ (define %default-modules
;; Default set of modules visible in a service's file. ;; Default set of modules visible in a service's file.
`((shepherd service) `((shepherd service)
(oop goops) (oop goops)
(guix build utils) ((guix build utils) #:hide (delete))
(guix build syscalls))) (guix build syscalls)))
(define-record-type* <shepherd-service> (define-record-type* <shepherd-service>
@ -315,7 +315,9 @@ (define config
(call-with-error-handling (call-with-error-handling
(lambda () (lambda ()
(apply register-services (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...~%") (format #t "starting services...~%")
(for-each (lambda (service) (for-each (lambda (service)