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 6bb21722b6..37ecc019ec 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>