From 0b535f7b8b1656a2c52d88358f2a557fce0385eb Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Mon, 14 Jun 2021 18:22:26 +0200
Subject: [PATCH] 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 946da8756b..382c34922a 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