civodul pushed a commit to branch wip-fibers
in repository shepherd.
commit 17d5cd19b75e618640ef84a355750c909336d098
Author: Ludovic Courtès <[email protected]>
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
