~ruther/guix-local: services: ganeti: Update to Shepherd 1.0 interface.

27806fde372189895cf79405a042c5ee489f3dc1 — Ludovic Courtès 1 year, 7 months ago 14f10a1

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

patch browse .tar.gz .zip

1 files changed, 9 insertions(+), 10 deletions(-)

M gnu/services/ganeti.scm

M gnu/services/ganeti.scm => gnu/services/ganeti.scm +9 -10

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