[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[shepherd] 05/06: logger: Built-in logger recognizes <process> values.
From: |
Ludovic Courtès |
Subject: |
[shepherd] 05/06: logger: Built-in logger recognizes <process> values. |
Date: |
Sun, 28 Apr 2024 17:16:26 -0400 (EDT) |
civodul pushed a commit to branch devel
in repository shepherd.
commit cb4fc78b6982bf32b15f154866c057e90f6be661
Author: Ludovic Courtès <ludo@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))))
- [shepherd] branch devel updated (f1b5734 -> 2be2050), Ludovic Courtès, 2024/04/28
- [shepherd] 02/06: guix: Import (gnu services) for ‘modify-services’., Ludovic Courtès, 2024/04/28
- [shepherd] 05/06: logger: Built-in logger recognizes <process> values.,
Ludovic Courtès <=
- [shepherd] 06/06: service: Remove unused ‘find-service’ procedure., Ludovic Courtès, 2024/04/28
- [shepherd] 01/06: build: Remove support for Guile 2.2., Ludovic Courtès, 2024/04/28
- [shepherd] 04/06: service: Add ‘register-service-logger’., Ludovic Courtès, 2024/04/28
- [shepherd] 03/06: service: Move logging code to (shepherd logger)., Ludovic Courtès, 2024/04/28