aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2021-05-30 20:42:09 +0100
committerChristopher Baines <mail@cbaines.net>2021-05-30 20:42:09 +0100
commita140f96599db68895c751ac564a78ee204b3bf81 (patch)
tree40793c1d45f45bdfae2c362ff629390aafc53120
parent15c61c94ff507c8a527cbbce09cb1c6627611faf (diff)
downloadbuild-coordinator-a140f96599db68895c751ac564a78ee204b3bf81.tar
build-coordinator-a140f96599db68895c751ac564a78ee204b3bf81.tar.gz
Improve the reveived output message
-rw-r--r--guix-build-coordinator/agent-messaging/http/server.scm5
1 files changed, 3 insertions, 2 deletions
diff --git a/guix-build-coordinator/agent-messaging/http/server.scm b/guix-build-coordinator/agent-messaging/http/server.scm
index cc88659..23fa120 100644
--- a/guix-build-coordinator/agent-messaging/http/server.scm
+++ b/guix-build-coordinator/agent-messaging/http/server.scm
@@ -409,15 +409,16 @@ port. Also, the port used can be changed by passing the --port option.\n"
(display
(simple-format
#f
- "receiving ~A
+ "received ~A
took ~A seconds
- data transfered: ~AMB
+ data transfered: ~AMB (~A bytes)
speed (MB/s): ~A
"
(basename output-file-name)
seconds-elapsed
(rationalize (exact->inexact (/ bytes-read 1000000))
0.1)
+ bytes-read
(rationalize (/ (/ bytes-read 1000000)
seconds-elapsed)
0.1))))