[shepherd] 02/04: herd: ‘--log-history’ also affects timer history size.

[Ludovic Courtès]

civodul pushed a commit to branch devel
in repository shepherd.

commit 2ad462db2643adbdb243b62fc17e6e927dba50a5
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Mon May 20 22:39:28 2024 +0200

    herd: ‘--log-history’ also affects timer history size.
    
    * modules/shepherd/scripts/herd.scm (run-command): Add #:timer-history-size
    and pass it to ‘display-service-status’.
    (main): Pass #:timer-history-size to ‘run-command’.
---
 modules/shepherd/scripts/herd.scm | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/modules/shepherd/scripts/herd.scm 
b/modules/shepherd/scripts/herd.scm
index 5fcec6b..60363e1 100644
--- a/modules/shepherd/scripts/herd.scm
+++ b/modules/shepherd/scripts/herd.scm
@@ -732,7 +732,9 @@ fontcolor = ~a, style = ~a];~%"
       (memq service names))))
 
 (define* (run-command socket-file action service args
-                      #:key (log-history-size %default-log-history-size))
+                      #:key
+                      (log-history-size %default-log-history-size)
+                      (timer-history-size %default-timer-history-size))
   "Perform ACTION with ARGS on SERVICE, and display the result.  Connect to
 the daemon via SOCKET-FILE."
   (with-system-error-handling
@@ -788,7 +790,9 @@ the daemon via SOCKET-FILE."
                          (display-service-status service
                                                  #:show-recent-messages? #t
                                                  #:log-history-size
-                                                 log-history-size)))
+                                                 log-history-size
+                                                 #:timer-history-size
+                                                 timer-history-size)))
                      result))
           (('start _)
            (unless result
@@ -880,7 +884,8 @@ a positive integer")
          (run-command socket-file
                       (string->symbol action)
                       (string->symbol service) args
-                      #:log-history-size log-history-size))
+                      #:log-history-size log-history-size
+                      #:timer-history-size log-history-size)) ;approximation
         (_
          (format (current-error-port)
                  (l10n "Usage: herd ACTION [SERVICE [OPTIONS...]]~%"))