civodul pushed a commit to branch devel
in repository shepherd.
commit 61718984504611902f383b77b014225e3f9bd802
Author: Ludovic Courtès <[email protected]>
AuthorDate: Sat May 18 11:43:34 2024 +0200
service: Update internal uses of deprecated GOOPS methods.
* modules/shepherd/service.scm (display-service-documentation): Use
‘service-action-list’.
(root-service): Use ‘stop-service’.
---
modules/shepherd/service.scm | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/modules/shepherd/service.scm b/modules/shepherd/service.scm
index 20c6df9..a504b3f 100644
--- a/modules/shepherd/service.scm
+++ b/modules/shepherd/service.scm
@@ -1151,7 +1151,7 @@ the action."
((list-actions)
(local-output "~a ~a"
(service-canonical-name service)
- (action-list service)))
+ (service-action-list service)))
(else
;; FIXME: Implement doc-help.
(local-output (l10n "Unknown keyword. Try 'herd help'."))))))
@@ -2815,7 +2815,7 @@ Clients such as 'herd' can read it and format it in a
human-readable way."
"Halt the system."
(lambda (running)
(catch 'quit
- (cut stop root-service)
+ (cut stop-service root-service)
(lambda (key)
(local-output (l10n "Halting..."))
(halt)))))
@@ -2824,7 +2824,7 @@ Clients such as 'herd' can read it and format it in a
human-readable way."
"Halt the system and turn it off."
(lambda (running)
(catch 'quit
- (cut stop root-service)
+ (cut stop-service root-service)
(lambda (key)
(local-output (l10n "Shutting down..."))
(power-off)))))
