diff options
author | Ludovic Courtès <ludo@gnu.org> | 2020-10-10 00:03:57 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2020-10-10 22:37:45 +0200 |
commit | b55409b2c0a0cb53f251ceab7746d35805b64ab7 (patch) | |
tree | c853b92b135aa97861e3736092fd172ce483f6ec /guix/build/hg.scm | |
parent | 45cad97d9ee15a4b43e83d735185ff633a95cc09 (diff) | |
download | guix-patches-b55409b2c0a0cb53f251ceab7746d35805b64ab7.tar guix-patches-b55409b2c0a0cb53f251ceab7746d35805b64ab7.tar.gz |
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.
Diffstat (limited to 'guix/build/hg.scm')
-rw-r--r-- | guix/build/hg.scm | 8 |
1 files changed, 1 insertions, 7 deletions
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 |