mirror of
https://codeberg.org/guix/guix.git
synced 2026-01-25 03:55:08 -06:00
services: herd: Remove ‘load-services/safe’.
This is a followup to 95731b4ef1.
* gnu/services/herd.scm (load-services/safe): Remove.
* guix/scripts/system/reconfigure.scm (upgrade-services-program): Use
‘load-services’.
Change-Id: Ie5ab99e69e2d7c1934fddd37794c07e6e07489a3
This commit is contained in:
parent
96558456df
commit
9b15bfad51
2 changed files with 1 additions and 7 deletions
|
|
@ -58,7 +58,6 @@
|
|||
unload-services
|
||||
unload-service
|
||||
load-services
|
||||
load-services/safe
|
||||
start-service
|
||||
stop-service
|
||||
restart-service
|
||||
|
|
@ -301,11 +300,6 @@ returns a shepherd <service> object."
|
|||
`(primitive-load ,file))
|
||||
files)))))
|
||||
|
||||
(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
|
||||
(lambda (result)
|
||||
|
|
|
|||
|
|
@ -175,7 +175,7 @@ canonical names (symbols)."
|
|||
;; Silence messages coming from shepherd such as "Evaluating
|
||||
;; expression ..." since they are unhelpful.
|
||||
(parameterize ((shepherd-message-port (%make-void-port "w")))
|
||||
(load-services/safe '#$service-files))
|
||||
(load-services '#$service-files))
|
||||
|
||||
;; Unload obsolete services and start new services.
|
||||
(for-each unload-service '#$to-unload)
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue