Browse Source
services: herd: Add restart-service.
* gnu/services/herd.scm (restart-service): New exported procedure.
guile-daemon
Mathieu Othacehe
2 years ago
No known key found for this signature in database
GPG Key ID: 8354763531769CA6
1 changed files with
7 additions and
2 deletions
-
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) |
|
|
|
|
