diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2014-09-17 07:50:11 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2014-09-17 07:50:11 +0200 |
| commit | bebc8681c261961ceace16a7f0cfc3ebdba5a4aa (patch) | |
| tree | 144aa9a56a1e2bf1b288b82ed6a6d7535229205b | |
| parent | 736755e21eb8ce04d2451fef22ead27eafe0a162 (diff) | |
| download | patches-bebc8681c261961ceace16a7f0cfc3ebdba5a4aa.tar patches-bebc8681c261961ceace16a7f0cfc3ebdba5a4aa.tar.gz | |
services: Change default 'stop' value to #~(const #f).
* gnu/services.scm (<service>)[stop]: Change default value.
| -rw-r--r-- | gnu/services.scm | 7 |
1 files 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 @@ (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> |