tribes/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-04-06 13:10:33 +02:00
Code Activity

services: herd: Remove ‘load-services/safe’.

Browse Source 
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:
Ludovic Courtès
2025-10-19 11:30:52 +02:00
parent 96558456df
commit 9b15bfad51
2 changed files with 1 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
gnu/services/herd.scm
View File

@@ -58,7 +58,6 @@
unload-services unload-services
unload-service unload-service
load-services load-services
load-services/safe
start-service start-service
stop-service stop-service
restart-service restart-service
@@ -301,11 +300,6 @@ returns a shepherd <service> object."
`(primitive-load ,file)) `(primitive-load ,file))
files))))) 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 '())) (define* (start-service name #:optional (arguments '()))
(invoke-action name 'start arguments (invoke-action name 'start arguments
(lambda (result) (lambda (result)

2
guix/scripts/system/reconfigure.scm
View File

@@ -175,7 +175,7 @@ canonical names (symbols)."
;; Silence messages coming from shepherd such as "Evaluating ;; Silence messages coming from shepherd such as "Evaluating
;; expression ..." since they are unhelpful. ;; expression ..." since they are unhelpful.
(parameterize ((shepherd-message-port (%make-void-port "w"))) (parameterize ((shepherd-message-port (%make-void-port "w")))
(load-services/safe '#$service-files)) (load-services '#$service-files))
;; Unload obsolete services and start new services. ;; Unload obsolete services and start new services.
(for-each unload-service '#$to-unload) (for-each unload-service '#$to-unload)