diff options
| author | Marius Bakke <mbakke@fastmail.com> | 2020-03-04 12:04:42 +0100 |
|---|---|---|
| committer | Marius Bakke <mbakke@fastmail.com> | 2020-03-04 12:04:42 +0100 |
| commit | e32aea5472007507e62933b27a4db9a50810e5dc (patch) | |
| tree | 55ccbe4ed5baf1fd2689b16d7108da8f7be857a9 /gnu/services | |
| parent | fb98351621a6b311d4ff9593d6c22d40a3b3fe8f (diff) | |
| parent | d46f9f833b190aac04f7f4683b84a06a291a3f8f (diff) | |
| download | guix-e32aea5472007507e62933b27a4db9a50810e5dc.tar guix-e32aea5472007507e62933b27a4db9a50810e5dc.tar.gz | |
Merge branch 'master' into staging
Diffstat (limited to 'gnu/services')
| -rw-r--r-- | gnu/services/herd.scm | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/gnu/services/herd.scm b/gnu/services/herd.scm index 112a7dc104..35d69376d0 100644 --- a/gnu/services/herd.scm +++ b/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) |