Browse Source

services: herd: Add restart-service.

* gnu/services/herd.scm (restart-service): New exported procedure.
gn-latest-20200428
Mathieu Othacehe 2 years ago
parent
commit
8f5a0a97b1
No known key found for this signature in database GPG Key ID: 8354763531769CA6
  1. 9
      gnu/services/herd.scm

9
gnu/services/herd.scm

@ -1,6 +1,6 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2017 Mathieu Othacehe <m.othacehe@gmail.com>
;;; Copyright © 2017, 2020 Mathieu Othacehe <m.othacehe@gmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
@ -55,7 +55,8 @@
load-services
load-services/safe
start-service
stop-service))
stop-service
restart-service))
;;; Commentary:
;;;
@ -272,6 +273,10 @@ when passed a service with an already-registered name."
(with-shepherd-action name ('stop) result
result))
(define (restart-service name)
(with-shepherd-action name ('restart) result
result))
;; Local Variables:
;; eval: (put 'alist-let* 'scheme-indent-function 2)
;; eval: (put 'with-shepherd 'scheme-indent-function 1)

Loading…
Cancel
Save