diff options
author | Christopher Baines <mail@cbaines.net> | 2020-05-09 18:55:29 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2020-05-09 18:55:29 +0100 |
commit | 988cb11ba093f97d744e8523642a658713a4c1aa (patch) | |
tree | 0061fdafc040582998711eae9650fac15a5eb9ab /guix-build-coordinator/agent-messaging/http.scm | |
parent | 6a6870e281f6173a6c6a7c3cf39596e43e515ee0 (diff) | |
download | build-coordinator-988cb11ba093f97d744e8523642a658713a4c1aa.tar build-coordinator-988cb11ba093f97d744e8523642a658713a4c1aa.tar.gz |
Display some context around coordinator errors in the output
Diffstat (limited to 'guix-build-coordinator/agent-messaging/http.scm')
-rw-r--r-- | guix-build-coordinator/agent-messaging/http.scm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/guix-build-coordinator/agent-messaging/http.scm b/guix-build-coordinator/agent-messaging/http.scm index d950b3f..12c63e4 100644 --- a/guix-build-coordinator/agent-messaging/http.scm +++ b/guix-build-coordinator/agent-messaging/http.scm @@ -379,6 +379,12 @@ port. Also, the port used can be changed by passing the --port option.\n" controller-thunk #:on-error 'backtrace #:post-error (lambda args + (match method-and-path-components + ((method path-components ...) + (simple-format + (current-error-port) + "error: when processing: /~A ~A\n" + method (string-join path-components "/")))) (render-json `((error . ,(simple-format #f "~A" args))) #:code 500)))) |