From bebc8681c261961ceace16a7f0cfc3ebdba5a4aa Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Wed, 17 Sep 2014 07:50:11 +0200
Subject: [PATCH] services: Change default 'stop' value to #~(const #f).
* gnu/services.scm (<service>)[stop]: Change default value.
---
gnu/services.scm | 7 ++++---
1 file changed, 4 insertions(+), 3 deletions(-)
diff --git a/gnu/services.scm b/gnu/services.scm
index 6bb21722b69..37ecc019ec4 100644
--- a/gnu/services.scm
+++ b/gnu/services.scm
@@ -17,6 +17,7 @@
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
(define-module (gnu services)
+ #:use-module (guix gexp)
#:use-module (guix records)
#:export (service?
service
@@ -47,9 +48,9 @@ (define-record-type* <service>
(default '()))
(respawn? service-respawn? ; Boolean
(default #t))
- (start service-start) ; g-expression
- (stop service-stop ; g-expression
- (default #f))
+ (start service-start) ; g-expression (procedure)
+ (stop service-stop ; g-expression (procedure)
+ (default #~(const #f)))
(user-accounts service-user-accounts ; list of <user-account>
(default '()))
(user-groups service-user-groups ; list of <user-groups>
--
GitLab