diff options
| author | Christopher Baines <mail@cbaines.net> | 2020-11-07 11:42:12 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2020-11-07 11:42:12 +0000 |
| commit | 98f50831612b9d1253ae8ca2bceb547fed373f41 (patch) | |
| tree | 6275f10809f941ad7799365dcb2be59dd8aad2d9 /guix-build-coordinator/agent-messaging | |
| parent | be885801b90fa07cf17944f1d33686b62b2623c6 (diff) | |
| download | build-coordinator-98f50831612b9d1253ae8ca2bceb547fed373f41.tar build-coordinator-98f50831612b9d1253ae8ca2bceb547fed373f41.tar.gz | |
Use the build coordinator logger in the agent messaging server
Diffstat (limited to 'guix-build-coordinator/agent-messaging')
| -rw-r--r-- | guix-build-coordinator/agent-messaging/http/server.scm | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/guix-build-coordinator/agent-messaging/http/server.scm b/guix-build-coordinator/agent-messaging/http/server.scm index 89b64f1..6d73a9d 100644 --- a/guix-build-coordinator/agent-messaging/http/server.scm +++ b/guix-build-coordinator/agent-messaging/http/server.scm @@ -28,6 +28,7 @@ #:use-module (ice-9 binary-ports) #:use-module (system repl error-handling) #:use-module (rnrs bytevectors) + #:use-module (logging logger) #:use-module (json) #:use-module (web http) #:use-module (web client) @@ -77,10 +78,11 @@ if there was no request body." (lambda () (run-server/patched (lambda (request body) - (display - (format #f "~4a ~a\n" - (request-method request) - (uri-path (request-uri request)))) + (log-msg (build-coordinator-logger build-coordinator) + 'INFO + (format #f "~4a ~a\n" + (request-method request) + (uri-path (request-uri request)))) (apply values (controller request (cons (request-method request) |