diff options
| author | Alex Kost <alezost@gmail.com> | 2016-01-27 18:22:23 +0300 |
|---|---|---|
| committer | Alex Kost <alezost@gmail.com> | 2016-01-29 12:07:32 +0300 |
| commit | 34044d551f84cd5cd2568145f4ad3eaf690154ba (patch) | |
| tree | 00af526f09544105238b6e0b70a59e01f28d0c2d /gnu/services/dmd.scm | |
| parent | d312a8328de3c9b28f98383b792871ba796359a5 (diff) | |
Use 'shepherd' instead of 'dmd' as init system.
* gnu/services/dmd.scm (dmd-boot-gexp): Use binary from 'shepherd' package.
(dmd-root-service-type): Use 'shepherd' package.
(%default-modules): Use (shepherd service) module.
* gnu/services/base.scm (%root-file-system-dmd-service): Use
'stop-logging' procedure to close shepherd log.
Diffstat (limited to 'gnu/services/dmd.scm')
| -rw-r--r-- | gnu/services/dmd.scm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gnu/services/dmd.scm b/gnu/services/dmd.scm index fb3d3326f8..828d781e4a 100644 --- a/gnu/services/dmd.scm +++ b/gnu/services/dmd.scm @@ -77,9 +77,9 @@ (false-if-exception (close-fdes fd)) (loop (+ 1 fd)))) - ;; Start dmd. - (execl (string-append #$dmd "/bin/dmd") - "dmd" "--config" #$dmd-conf))))) + ;; Start shepherd. + (execl (string-append #$shepherd "/bin/shepherd") + "shepherd" "--config" #$dmd-conf))))) (define dmd-root-service-type (service-type @@ -90,7 +90,7 @@ (extend append) (extensions (list (service-extension boot-service-type dmd-boot-gexp) (service-extension profile-service-type - (const (list dmd))))))) + (const (list shepherd))))))) (define %dmd-root-service ;; The root dmd service, aka. PID 1. Its parameter is a list of @@ -113,7 +113,7 @@ service that extends DMD-ROOT-SERVICE-TYPE and nothing else." (define %default-modules ;; Default set of modules visible in a service's file. - `((dmd service) + `((shepherd service) (oop goops) (guix build utils) (guix build syscalls))) |