guix-commits
[Top][All Lists]
Advanced

[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).~%"))))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]