From mboxrd@z Thu Jan 1 00:00:00 1970 Received: from eggs.gnu.org ([2001:4830:134:3::10]:44560) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1de6f3-0005V8-Gk for guix-patches@gnu.org; Sat, 05 Aug 2017 17:31:06 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1de6f0-0007Og-CK for guix-patches@gnu.org; Sat, 05 Aug 2017 17:31:05 -0400 Received: from debbugs.gnu.org ([208.118.235.43]:41133) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1de6f0-0007OJ-8t for guix-patches@gnu.org; Sat, 05 Aug 2017 17:31:02 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1de6ez-0005MT-Rk for guix-patches@gnu.org; Sat, 05 Aug 2017 17:31:01 -0400 Subject: [bug#27977] [PATCH 2/2] services: herd: Add a stop-service procedure. Resent-Message-ID: From: Christopher Baines Date: Sat, 5 Aug 2017 22:30:34 +0100 Message-Id: <20170805213034.1012-2-mail@cbaines.net> In-Reply-To: <20170805213034.1012-1-mail@cbaines.net> References: <20170805213034.1012-1-mail@cbaines.net> List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-patches-bounces+kyle=kyleam.com@gnu.org Sender: "Guix-patches" To: 27977@debbugs.gnu.org * gnu/services/herd.scm (stop-service): New procedure. --- gnu/services/herd.scm | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/gnu/services/herd.scm b/gnu/services/herd.scm index 49400aba4..e16d51b9d 100644 --- a/gnu/services/herd.scm +++ b/gnu/services/herd.scm @@ -49,7 +49,8 @@ unload-services unload-service load-services - start-service)) + start-service + stop-service)) ;;; Commentary: ;;; @@ -222,6 +223,10 @@ returns a shepherd object." (with-shepherd-action name ('start) result result)) +(define (stop-service name) + (with-shepherd-action name ('stop) result + result)) + ;; Local Variables: ;; eval: (put 'alist-let* 'scheme-indent-function 2) ;; eval: (put 'with-shepherd 'scheme-indent-function 1) -- 2.13.1