06/10: services: shepherd: Rename shepherd configuration file.

[Alex Kost]

alezost pushed a commit to branch master
in repository guix.

commit fe1ad5f5db1cf38a291ee5548729d24e03d3c448
Author: Alex Kost <address@hidden>
Date:   Wed Jan 27 18:45:09 2016 +0300

    services: shepherd: Rename shepherd configuration file.
    
    * gnu/services/shepherd.scm (dmd-configuration-file): Rename to...
      (shepherd-configuration-file): ... this.  Use "shepherd.conf" name.
      (dmd-boot-gexp): Use it.
---
 gnu/services/shepherd.scm |   12 ++++++------
 1 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/gnu/services/shepherd.scm b/gnu/services/shepherd.scm
index a33985e..ccb71f3 100644
--- a/gnu/services/shepherd.scm
+++ b/gnu/services/shepherd.scm
@@ -55,13 +55,13 @@
 
 ;;; Commentary:
 ;;;
-;;; Instantiating system services as a dmd configuration file.
+;;; Instantiating system services as a shepherd configuration file.
 ;;;
 ;;; Code:
 
 
 (define (dmd-boot-gexp services)
-  (mlet %store-monad ((dmd-conf (dmd-configuration-file services)))
+  (mlet %store-monad ((shepherd-conf (shepherd-configuration-file services)))
     (return #~(begin
                 ;; Keep track of the booted system.
                 (false-if-exception (delete-file "/run/booted-system"))
@@ -79,7 +79,7 @@
 
                 ;; Start shepherd.
                 (execl (string-append #$shepherd "/bin/shepherd")
-                       "shepherd" "--config" #$dmd-conf)))))
+                       "shepherd" "--config" #$shepherd-conf)))))
 
 (define dmd-root-service-type
   (service-type
@@ -207,8 +207,8 @@ stored."
                     #:start #$(dmd-service-start service)
                     #:stop #$(dmd-service-stop service)))))
 
-(define (dmd-configuration-file services)
-  "Return the dmd configuration file for SERVICES."
+(define (shepherd-configuration-file services)
+  "Return the shepherd configuration file for SERVICES."
   (define modules
     (delete-duplicates
      (append-map dmd-service-imported-modules services)))
@@ -242,7 +242,7 @@ stored."
                                    (filter dmd-service-auto-start?
                                            services)))))
 
-    (gexp->file "dmd.conf" config)))
+    (gexp->file "shepherd.conf" config)))
 
 (define (dmd-service-back-edges services)
   "Return a procedure that, when given a <dmd-service> from SERVICES, returns