nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

services: Prefix <dmd-service> accessors with 'dmd-'. 

* gnu/services/dmd.scm (<dmd-service>): Prefix accessor identifiers with
  'dmd-', as was intended.  Update users accordingly.
This commit is contained in:
Ludovic Courtès 2015-10-14 18:38:46 +02:00
parent d6c3267a32
commit c5d735f798
1 changed files with 18 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
gnu/services/dmd.scm
View File

@ -98,17 +98,17 @@ service that extends DMD-ROOT-SERVICE-TYPE and nothing else."
(define-record-type* <dmd-service> (define-record-type* <dmd-service>
dmd-service make-dmd-service dmd-service make-dmd-service
dmd-service? dmd-service?
(documentation service-documentation ; string (documentation dmd-service-documentation ;string
(default "[No documentation.]")) (default "[No documentation.]"))
(provision service-provision) ; list of symbols (provision dmd-service-provision) ;list of symbols
(requirement service-requirement ; list of symbols (requirement dmd-service-requirement ;list of symbols
(default '())) (default '()))
(respawn? service-respawn? ; Boolean (respawn? dmd-service-respawn? ;Boolean
(default #t)) (default #t))
(start service-start) ; g-expression (procedure) (start dmd-service-start) ;g-expression (procedure)
(stop service-stop ; g-expression (procedure) (stop dmd-service-stop ;g-expression (procedure)
(default #~(const #f))) (default #~(const #f)))
(auto-start? service-auto-start? ; Boolean (auto-start? dmd-service-auto-start? ;Boolean
(default #t))) (default #t)))
@ -127,8 +127,8 @@ failure."
(format #f (_ "service '~a' provided more than once") (format #f (_ "service '~a' provided more than once")
symbol))))))) symbol)))))))
(for-each assert-unique (service-provision service)) (for-each assert-unique (dmd-service-provision service))
(fold set-insert set (service-provision service))) (fold set-insert set (dmd-service-provision service)))
(setq) (setq)
services)) services))
@ -160,12 +160,12 @@ failure."
(register-services (register-services
#$@(map (lambda (service) #$@(map (lambda (service)
#~(make <service> #~(make <service>
#:docstring '#$(service-documentation service) #:docstring '#$(dmd-service-documentation service)
#:provides '#$(service-provision service) #:provides '#$(dmd-service-provision service)
#:requires '#$(service-requirement service) #:requires '#$(dmd-service-requirement service)
#:respawn? '#$(service-respawn? service) #:respawn? '#$(dmd-service-respawn? service)
#:start #$(service-start service) #:start #$(dmd-service-start service)
#:stop #$(service-stop service))) #:stop #$(dmd-service-stop service)))
services)) services))
;; guix-daemon 0.6 aborts if 'PATH' is undefined, so work around it. ;; guix-daemon 0.6 aborts if 'PATH' is undefined, so work around it.
@ -173,8 +173,9 @@ failure."
(format #t "starting services...~%") (format #t "starting services...~%")
(for-each start (for-each start
'#$(append-map service-provision '#$(append-map dmd-service-provision
(filter service-auto-start? services))))) (filter dmd-service-auto-start?
services)))))
(gexp->file "dmd.conf" config))) (gexp->file "dmd.conf" config)))