From b55409b2c0a0cb53f251ceab7746d35805b64ab7 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Sat, 10 Oct 2020 00:03:57 +0200
Subject: svn-download, hg-download: Use 'report-invoke-error'.

* guix/build/hg.scm (hg-fetch): Use 'report-invoke-error' instead of
'format'.
* guix/build/svn.scm (svn-fetch): Likewise.
---
 guix/build/hg.scm | 8 +-------
 1 file changed, 1 insertion(+), 7 deletions(-)

(limited to 'guix/build/hg.scm')

diff --git a/guix/build/hg.scm b/guix/build/hg.scm
index 1cceb63433..0ffad7fa2d 100644
--- a/guix/build/hg.scm
+++ b/guix/build/hg.scm
@@ -41,13 +41,7 @@ Mercurial changeset identifier.  Return #t on success, #f otherwise."
   (mkdir-p directory)
 
   (guard (c ((invoke-error? c)
-             (format (current-error-port)
-                     "hg-fetch: '~a~{ ~a~}' failed with exit code ~a~%"
-                     (invoke-error-program c)
-                     (invoke-error-arguments c)
-                     (or (invoke-error-exit-status c)
-                         (invoke-error-stop-signal c)
-                         (invoke-error-term-signal c)))
+             (report-invoke-error c)
              (delete-file-recursively directory)
              #f))
     (with-directory-excursion directory
-- 
cgit v1.2.3