diff options
| author | Christopher Baines <mail@cbaines.net> | 2022-10-22 09:48:05 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2022-10-22 09:48:05 +0100 |
| commit | 736b9319221319f24608e6fbe13ef9a97c2ca0b1 (patch) | |
| tree | b00ab0a05326f9760b3d3521a6578ef216931217 | |
| parent | 2d616a7063767818103711755e7962c3b89b058a (diff) | |
| download | build-coordinator-736b9319221319f24608e6fbe13ef9a97c2ca0b1.tar build-coordinator-736b9319221319f24608e6fbe13ef9a97c2ca0b1.tar.gz | |
Log when output files are renamed
| -rw-r--r-- | guix-build-coordinator/agent-messaging/http/server.scm | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/guix-build-coordinator/agent-messaging/http/server.scm b/guix-build-coordinator/agent-messaging/http/server.scm index b2b9fd9..384e953 100644 --- a/guix-build-coordinator/agent-messaging/http/server.scm +++ b/guix-build-coordinator/agent-messaging/http/server.scm @@ -495,6 +495,10 @@ port. Also, the port used can be changed by passing the --port option.\n" ;; Compute the hash of the file (let ((hash (compute-hash tmp-output-file-name))) + (log-msg logger + 'DEBUG + "computed the hash of " tmp-output-file-name ", renaming") + (rename-file tmp-output-file-name output-file-name) hash)))) @@ -527,6 +531,11 @@ port. Also, the port used can be changed by passing the --port option.\n" (put-bytevector output-port body))) (let ((hash (compute-hash tmp-output-file-name))) + (log-msg logger + 'DEBUG + "computed the hash of " tmp-output-file-name + ", renaming") + (rename-file tmp-output-file-name output-file-name) hash)) @@ -655,6 +664,11 @@ port. Also, the port used can be changed by passing the --port option.\n" ;; Compute the hash of the file (let ((hash (compute-hash tmp-output-file-name))) + (log-msg logger + 'DEBUG + "computed the hash of " tmp-output-file-name + ", renaming") + (rename-file tmp-output-file-name output-file-name) hash)))) @@ -681,6 +695,11 @@ port. Also, the port used can be changed by passing the --port option.\n" (close-port output-port) (let ((hash (compute-hash tmp-output-file-name))) + (log-msg logger + 'DEBUG + "computed the hash of " tmp-output-file-name + ", renaming") + (rename-file tmp-output-file-name output-file-name) hash)) |