[shepherd] 12/24: service: Remove unused 'make-init.d-service'.

[Ludovic Courtès]

civodul pushed a commit to branch wip-fibers
in repository shepherd.

commit 5ec38c7867b0dcf5c800f63413f79b74605c4925
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Fri Mar 25 09:54:55 2022 +0100

    service: Remove unused 'make-init.d-service'.
    
    * modules/shepherd/service.scm (make-init.d-service): Remove.
---
 modules/shepherd/service.scm | 11 -----------
 1 file changed, 11 deletions(-)

diff --git a/modules/shepherd/service.scm b/modules/shepherd/service.scm
index 1ccb18d..e21e6bb 100644
--- a/modules/shepherd/service.scm
+++ b/modules/shepherd/service.scm
@@ -87,7 +87,6 @@
             read-pid-file
             make-system-constructor
             make-system-destructor
-            make-init.d-service
 
             check-for-dead-services
             root-service
@@ -1105,16 +1104,6 @@ as argument, where SIGNAL defaults to `SIGTERM'."
   (lambda (ignored . args)
     (not (zero? (status:exit-val (system (apply string-append command)))))))
 
-;; Create service with constructor and destructor being set to typical
-;; init.d scripts.
-(define (make-init.d-service name . stuff)
-  (let ((cmd (string-append "/etc/init.d/" name)))
-    (apply make <service>
-          #:provides (list (string->symbol name))
-          #:start (make-system-constructor cmd " start")
-          #:stop (make-system-destructor cmd " stop")
-          stuff)))
-
 ;; A group of service-names which can be provided (i.e. services
 ;; providing them get started) and unprovided (same for stopping)
 ;; together.  Not comparable with a real runlevel at all, but can be