diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2025-03-15 18:55:07 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2025-03-23 19:30:39 +0100 |
| commit | 27806fde372189895cf79405a042c5ee489f3dc1 (patch) | |
| tree | a743ed93ccf677ed2aec2be47c40b731950a6a01 | |
| parent | 14f10a1f83d71ffa9ff64f99fe72bafd04c544f8 (diff) | |
| download | guix-27806fde372189895cf79405a042c5ee489f3dc1.tar.gz guix-27806fde372189895cf79405a042c5ee489f3dc1.zip | |
services: ganeti: Update to Shepherd 1.0 interface.
* gnu/services/ganeti.scm (shepherd-wconfd-force-start-action)[procedure]:
Use ‘enable-service’ and ‘perform-service-action’ instead of ‘action’,
which was deprecated in 0.10.x and replaced in 1.0.
Reviewed-by: Maxim Cournoyer <maxim.cournoyer@gmail.com>
Change-Id: I2ba7d973b95f17f6ce093185fec7b246cf427be9
| -rw-r--r-- | gnu/services/ganeti.scm | 19 |
1 files changed, 9 insertions, 10 deletions
diff --git a/gnu/services/ganeti.scm b/gnu/services/ganeti.scm index ee72946c88..f905ab8395 100644 --- a/gnu/services/ganeti.scm +++ b/gnu/services/ganeti.scm @@ -329,18 +329,17 @@ related to the configuration of a Ganeti cluster."))) "Forcefully start wconfd even on non-master nodes (dangerous!).") (procedure #~(lambda _ (format #t "Forcefully starting the wconfd daemon...~%") - (action 'ganeti-wconfd 'enable) - (dynamic-wind - (lambda () - (false-if-exception - (call-with-output-file #$%wconfd-force-node-hint - (lambda (port) - (const #t))))) - (lambda () - (action 'ganeti-wconfd 'restart)) + (enable-service (lookup-service 'ganeti-wconfd)) + (call-with-output-file #$%wconfd-force-node-hint + (const #t)) + (catch #t (lambda () + (perform-service-action (lookup-service 'ganeti-wconfd) + 'restart) + (delete-file #$%wconfd-force-node-hint)) + (lambda _ (delete-file #$%wconfd-force-node-hint))) - #t)))) + #t)))) (define ganeti-wconfd-service (match-lambda |