[shepherd] 05/06: logger: Built-in logger recognizes values.

[Ludovic Courtès]

civodul pushed a commit to branch devel
in repository shepherd.

commit cb4fc78b6982bf32b15f154866c057e90f6be661
Author: Ludovic Courtès <l...@gnu.org>
AuthorDate: Sat Apr 27 21:31:45 2024 +0200

    logger: Built-in logger recognizes <process> values.
    
    * modules/shepherd/logger.scm (service-builtin-logger): Recognize <process>
    values.
---
 modules/shepherd/logger.scm | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/modules/shepherd/logger.scm b/modules/shepherd/logger.scm
index f3a182f..4eecb0f 100644
--- a/modules/shepherd/logger.scm
+++ b/modules/shepherd/logger.scm
@@ -23,6 +23,8 @@
   #:use-module (fibers operations)
   #:use-module (shepherd comm)
   #:autoload   (shepherd service) (current-service
+                                   process?
+                                   process-id
                                    register-service-logger
                                    service-running-value
                                    service-status)
@@ -216,7 +218,11 @@ to @var{history-size} lines in memory."
          (let* ((pid (or pid
                          (and service
                               (eq? 'running (service-status service))
-                              (service-running-value service))))
+                              (match (service-running-value service)
+                                ((? process? process)
+                                 (process-id process))
+                                (value
+                                 value)))))
                 (now (current-time))
                 (prefix (strftime (%current-logfile-date-format)
                                   (localtime now))))