diff options
Diffstat (limited to 'guix-build-coordinator/agent-messaging/http/server.scm')
-rw-r--r-- | guix-build-coordinator/agent-messaging/http/server.scm | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/guix-build-coordinator/agent-messaging/http/server.scm b/guix-build-coordinator/agent-messaging/http/server.scm index e4f7041..b2b9fd9 100644 --- a/guix-build-coordinator/agent-messaging/http/server.scm +++ b/guix-build-coordinator/agent-messaging/http/server.scm @@ -507,8 +507,16 @@ port. Also, the port used can be changed by passing the --port option.\n" (mkdir-p (dirname output-file-name)) (when (file-exists? output-file-name) + (log-msg logger + 'WARN + "PUT /build/" uuid "/output/" output-name ": " + "deleting " output-file-name) (delete-file output-file-name)) (when (file-exists? tmp-output-file-name) + (log-msg logger + 'WARN + "PUT /build/" uuid "/output/" output-name ": " + "deleting " tmp-output-file-name) (delete-file tmp-output-file-name)) (let ((hash @@ -660,6 +668,10 @@ port. Also, the port used can be changed by passing the --port option.\n" ;; If the output file exists, delete it, as it's being uploaded ;; again (when (file-exists? output-file-name) + (log-msg logger + 'WARN + "POST /build/" uuid "/output/" output-name "/partial: " + "deleting " output-file-name) (delete-file output-file-name)) (let ((hash |