diff options
author | Christopher Baines <mail@cbaines.net> | 2020-05-09 19:02:07 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2020-05-09 19:02:07 +0100 |
commit | bb4dfcb9f1df274b12c7261bdcdcfb6f072caba3 (patch) | |
tree | 603cefed1a812e459e6f116b8a430cbef21202eb /guix-build-coordinator/agent-messaging/http.scm | |
parent | fa1f1a7eaf538c336d587cf26c1fd0d2cba3dd39 (diff) | |
download | build-coordinator-bb4dfcb9f1df274b12c7261bdcdcfb6f072caba3.tar build-coordinator-bb4dfcb9f1df274b12c7261bdcdcfb6f072caba3.tar.gz |
Add some informative messages when sending outputs
Diffstat (limited to 'guix-build-coordinator/agent-messaging/http.scm')
-rw-r--r-- | guix-build-coordinator/agent-messaging/http.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/guix-build-coordinator/agent-messaging/http.scm b/guix-build-coordinator/agent-messaging/http.scm index 347c9e3..7f275d8 100644 --- a/guix-build-coordinator/agent-messaging/http.scm +++ b/guix-build-coordinator/agent-messaging/http.scm @@ -519,13 +519,15 @@ port. Also, the port used can be changed by passing the --port option.\n" (template (string-append directory "/guix-build-coordinator-file.XXXXXX")) (out (mkstemp! template))) - + (simple-format #t "compressing ~A -> ~A prior to sending\n" + file template) (call-with-lzip-output-port out (lambda (port) (write-file file port)) #:level 9) (close-port out) + (simple-format #t "finished compressing ~A, now sending\n" file) (retry-on-error (lambda () (call-with-input-file template |