hg-download: Make (guix swh) output visible.

* guix/hg-download.scm (hg-fetch)[build]: Add 'setvbuf' calls.
This commit is contained in:
Ludovic Courtès 2021-06-14 18:22:26 +02:00
parent 69d7333217
commit 0b535f7b8b
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5

@ -104,6 +104,9 @@ HASH-ALGO (a symbol). Use NAME as the file name, or a generic name if #f."
(((names dirs outputs ...) ...)
dirs)))
(setvbuf (current-output-port) 'line)
(setvbuf (current-error-port) 'line)
(or (hg-fetch '#$(hg-reference-url ref)
'#$(hg-reference-changeset ref)
#$output