[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
07/10: services: Prefix <dmd-service> accessors with 'dmd-'.
From: |
Ludovic Courtès |
Subject: |
07/10: services: Prefix <dmd-service> accessors with 'dmd-'. |
Date: |
Wed, 14 Oct 2015 19:46:09 +0000 |
civodul pushed a commit to branch master
in repository guix.
commit c5d735f798e0e58774b9ce0c6197695bc6f0daa9
Author: Ludovic Courtès <address@hidden>
Date: Wed Oct 14 18:38:46 2015 +0200
services: Prefix <dmd-service> accessors with 'dmd-'.
* gnu/services/dmd.scm (<dmd-service>): Prefix accessor identifiers with
'dmd-', as was intended. Update users accordingly.
---
gnu/services/dmd.scm | 35 ++++++++++++++++++-----------------
1 files changed, 18 insertions(+), 17 deletions(-)
diff --git a/gnu/services/dmd.scm b/gnu/services/dmd.scm
index 418511b..7b6434a 100644
--- a/gnu/services/dmd.scm
+++ b/gnu/services/dmd.scm
@@ -98,17 +98,17 @@ service that extends DMD-ROOT-SERVICE-TYPE and nothing
else."
(define-record-type* <dmd-service>
dmd-service make-dmd-service
dmd-service?
- (documentation service-documentation ; string
+ (documentation dmd-service-documentation ;string
(default "[No documentation.]"))
- (provision service-provision) ; list of symbols
- (requirement service-requirement ; list of symbols
+ (provision dmd-service-provision) ;list of symbols
+ (requirement dmd-service-requirement ;list of symbols
(default '()))
- (respawn? service-respawn? ; Boolean
+ (respawn? dmd-service-respawn? ;Boolean
(default #t))
- (start service-start) ; g-expression (procedure)
- (stop service-stop ; g-expression (procedure)
+ (start dmd-service-start) ;g-expression (procedure)
+ (stop dmd-service-stop ;g-expression (procedure)
(default #~(const #f)))
- (auto-start? service-auto-start? ; Boolean
+ (auto-start? dmd-service-auto-start? ;Boolean
(default #t)))
@@ -127,8 +127,8 @@ failure."
(format #f (_ "service '~a' provided more than once")
symbol)))))))
- (for-each assert-unique (service-provision service))
- (fold set-insert set (service-provision service)))
+ (for-each assert-unique (dmd-service-provision service))
+ (fold set-insert set (dmd-service-provision service)))
(setq)
services))
@@ -160,12 +160,12 @@ failure."
(register-services
#$@(map (lambda (service)
#~(make <service>
- #:docstring '#$(service-documentation service)
- #:provides '#$(service-provision service)
- #:requires '#$(service-requirement service)
- #:respawn? '#$(service-respawn? service)
- #:start #$(service-start service)
- #:stop #$(service-stop service)))
+ #:docstring '#$(dmd-service-documentation service)
+ #:provides '#$(dmd-service-provision service)
+ #:requires '#$(dmd-service-requirement service)
+ #:respawn? '#$(dmd-service-respawn? service)
+ #:start #$(dmd-service-start service)
+ #:stop #$(dmd-service-stop service)))
services))
;; guix-daemon 0.6 aborts if 'PATH' is undefined, so work around it.
@@ -173,8 +173,9 @@ failure."
(format #t "starting services...~%")
(for-each start
- '#$(append-map service-provision
- (filter service-auto-start? services)))))
+ '#$(append-map dmd-service-provision
+ (filter dmd-service-auto-start?
+ services)))))
(gexp->file "dmd.conf" config)))
- branch master updated (d9c44e9 -> 5f44ee4), Ludovic Courtès, 2015/10/14
- 08/10: services: Add 'dmd-service-back-edges'., Ludovic Courtès, 2015/10/14
- 06/10: guix system: Add 'extension-graph' command., Ludovic Courtès, 2015/10/14
- 09/10: guix system: Add 'dmd-graph' command., Ludovic Courtès, 2015/10/14
- 05/10: graph: 'export-graph' takes a #:reverse-edges? parameter., Ludovic Courtès, 2015/10/14
- 07/10: services: Prefix <dmd-service> accessors with 'dmd-'.,
Ludovic Courtès <=
- 10/10: services: Unmount user file systems after process termination., Ludovic Courtès, 2015/10/14
- 01/10: hydra: Add Graphviz and help2man as inputs to the Guix job set., Ludovic Courtès, 2015/10/15
- 02/10: build-system/gnu: dist-package: Use 'autoconf-wrapper'., Ludovic Courtès, 2015/10/15
- 04/10: services: 'dmd-service-type' takes a service name., Ludovic Courtès, 2015/10/15
- 03/10: services: Export 'service-back-edges'., Ludovic Courtès, 2015/10/15