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

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 0b535f7b8b1656a2c52d88358f2a557fce0385eb
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Mon Jun 14 18:22:26 2021 +0200

    hg-download: Make (guix swh) output visible.
    
    * guix/hg-download.scm (hg-fetch)[build]: Add 'setvbuf' calls.
---
 guix/hg-download.scm | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/guix/hg-download.scm b/guix/hg-download.scm
index 946da87..382c349 100644
--- a/guix/hg-download.scm
+++ b/guix/hg-download.scm
@@ -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