aboutsummaryrefslogtreecommitdiff
path: root/guix-build-coordinator/agent-messaging/http
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2022-10-22 09:48:05 +0100
committerChristopher Baines <mail@cbaines.net>2022-10-22 09:48:05 +0100
commit736b9319221319f24608e6fbe13ef9a97c2ca0b1 (patch)
treeb00ab0a05326f9760b3d3521a6578ef216931217 /guix-build-coordinator/agent-messaging/http
parent2d616a7063767818103711755e7962c3b89b058a (diff)
downloadbuild-coordinator-736b9319221319f24608e6fbe13ef9a97c2ca0b1.tar
build-coordinator-736b9319221319f24608e6fbe13ef9a97c2ca0b1.tar.gz
Log when output files are renamed
Diffstat (limited to 'guix-build-coordinator/agent-messaging/http')
-rw-r--r--guix-build-coordinator/agent-messaging/http/server.scm19
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))