me
/
guix
Archived
1
0
Fork 0
Code

services: herd: 'load-services/safe' is synonymous with 'load-services'. 

This is a followup to 547965aa27.

* gnu/services/herd.scm (load-services/safe): Make an alias for
'load-services'.
master
Ludovic Courtès 2023-04-21 00:11:52 +02:00
parent 9385c82c54
commit 95731b4ef1
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 4 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
gnu/services/herd.scm
View File

@ -282,14 +282,10 @@ returns a shepherd <service> object."
`(primitive-load ,file))
files))))
(define (load-services/safe files)
"This is like 'load-services', but make sure only the subset of FILES that
can be safely reloaded is actually reloaded."
(eval-there `(let ((services (map primitive-load ',files)))
;; Since version 0.5.0 of the Shepherd, registering a service
;; that has the same name as an already-registered service
;; makes it a "replacement" of that previous service.
(apply register-services services))))
(define load-services/safe
;; Deprecated. It used to behave differently before service replacements
;; were a thing.
load-services)
(define* (start-service name #:optional (arguments '()))
(invoke-action name 'start arguments