civodul pushed a commit to branch devel
in repository shepherd.
commit 60bac5b0a025ddba5428a4edf80d2be3396e4f7e
Author: Ludovic Courtès <[email protected]>
AuthorDate: Sun Nov 3 15:57:33 2024 +0100
herd: graph: Add edges to ‘root’ for every service.
* modules/shepherd/scripts/herd.scm (display-service-graph): Add 'root
to the requirement list of every service except 'root.
---
modules/shepherd/scripts/herd.scm | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/modules/shepherd/scripts/herd.scm
b/modules/shepherd/scripts/herd.scm
index 0180d34..54f0790 100644
--- a/modules/shepherd/scripts/herd.scm
+++ b/modules/shepherd/scripts/herd.scm
@@ -776,7 +776,9 @@ fontcolor = ~a, style = ~a];~%"
(live-service-canonical-name service)
(live-service-canonical-name
(lookup-service dependency))))
- (live-service-requirement service)))
+ (if (memq 'root (live-service-provision service))
+ (live-service-requirement service)
+ (cons 'root (live-service-requirement
service)))))
services)
(format #t "}~%"))
