me
/
guix
Archived
1
0
Fork 0
Code

herd: Define 'shepherd-message-port'. 

* gnu/services/herd.scm (shepherd-message-port): New variable.
(display-message): Use it instead of 'current-error-port'.
master
Ludovic Courtès 2019-10-18 22:37:20 +02:00
parent 17a5cb45d4
commit 6aeae5b90b
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
gnu/services/herd.scm
View File

@ -25,6 +25,7 @@
#:use-module (srfi srfi-35)
#:use-module (ice-9 match)
#:export (%shepherd-socket-file
shepherd-message-port
shepherd-error?
service-not-found-error?
@ -140,8 +141,12 @@ does not denote an error."
(#f ;not an error
#t)))
(define shepherd-message-port
;; Port where messages coming from shepherd are printed.
(make-parameter (current-error-port)))
(define (display-message message)
(format (current-error-port) "shepherd: ~a~%" message))
(format (shepherd-message-port) "shepherd: ~a~%" message))
(define* (invoke-action service action arguments cont)
"Invoke ACTION on SERVICE with ARGUMENTS. On success, call CONT with the