[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[shepherd] 01/04: herd: Streamline rendering of “Provides” and “Requires
From: |
Ludovic Courtès |
Subject: |
[shepherd] 01/04: herd: Streamline rendering of “Provides” and “Requires”. |
Date: |
Thu, 23 May 2024 17:26:14 -0400 (EDT) |
civodul pushed a commit to branch devel
in repository shepherd.
commit ccd3a90a04622bf6b3e0d5811b9b1395257c1e84
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Mon May 20 22:35:13 2024 +0200
herd: Streamline rendering of “Provides” and “Requires”.
* modules/shepherd/scripts/herd.scm (display-service-status): Display
names rather than a raw Scheme list for “Provides” and “Requires”.
---
modules/shepherd/scripts/herd.scm | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/modules/shepherd/scripts/herd.scm
b/modules/shepherd/scripts/herd.scm
index 503fb4a..5fcec6b 100644
--- a/modules/shepherd/scripts/herd.scm
+++ b/modules/shepherd/scripts/herd.scm
@@ -492,8 +492,8 @@ calendar event."
highlight/warn
highlight/error)))
(format #t (highlight (l10n " It is disabled.~%")))))
- (format #t (l10n " Provides ~a.~%") (live-service-provision service))
- (format #t (l10n " Requires ~a.~%") (live-service-requirement service))
+ (format #t (l10n " Provides:~{ ~a~}.~%") (live-service-provision service))
+ (format #t (l10n " Requires:~{ ~a~}.~%") (live-service-requirement service))
(when (live-service-pending-replacement? service)
(format #t (highlight/warn (l10n " Replacement pending (restart \
to upgrade).~%"))))