diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2015-10-14 15:09:18 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2015-10-14 21:39:05 +0200 |
| commit | 00184239c34694ba3005bccde498ae5962c06758 (patch) | |
| tree | 3855a836e72c8f69e5f7bb2ceca4487f5a9080c0 /gnu/services/dmd.scm | |
| parent | 5152d13b51a6418db52ce6dd572cc412e5addf44 (diff) | |
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.scm | 4 |
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)))))) |