aboutsummaryrefslogtreecommitdiff
path: root/gnu/services/dmd.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2015-10-14 15:09:18 +0200
committerLudovic Courtès <ludo@gnu.org>2015-10-14 21:39:05 +0200
commit00184239c34694ba3005bccde498ae5962c06758 (patch)
tree3855a836e72c8f69e5f7bb2ceca4487f5a9080c0 /gnu/services/dmd.scm
parent5152d13b51a6418db52ce6dd572cc412e5addf44 (diff)
downloadguix-00184239c34694ba3005bccde498ae5962c06758.tar
guix-00184239c34694ba3005bccde498ae5962c06758.tar.gz
services: 'dmd-service-type' takes a service name.
* gnu/services/dmd.scm (dmd-service-type): Add 'service-name' parameter. * gnu/services/base.scm, gnu/services/networking.scm, gnu/system/install.scm: Adjust callers.
Diffstat (limited to 'gnu/services/dmd.scm')
-rw-r--r--gnu/services/dmd.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/gnu/services/dmd.scm b/gnu/services/dmd.scm
index 6020ffc8eb..418511b289 100644
--- a/gnu/services/dmd.scm
+++ b/gnu/services/dmd.scm
@@ -86,11 +86,11 @@
;; <dmd-service> objects.
(service dmd-root-service-type '()))
-(define-syntax-rule (dmd-service-type proc)
+(define-syntax-rule (dmd-service-type service-name proc)
"Return a <service-type> denoting a simple dmd service--i.e., the type for a
service that extends DMD-ROOT-SERVICE-TYPE and nothing else."
(service-type
- (name 'some-dmd-service)
+ (name service-name)
(extensions
(list (service-extension dmd-root-service-type
(compose list proc))))))