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: ganeti: Update to Shepherd 1.0 interface.

Browse Source 
* 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
This commit is contained in:
Ludovic Courtès
2025-03-15 18:55:07 +01:00
parent 14f10a1f83
commit 27806fde37
1 changed files with 9 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
gnu/services/ganeti.scm
View File

@@ -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