download: Fix return value of the url-fetch procedure.
Fixes <https://bugs.gnu.org/30270>.
Regression was introduced by commit 347fa4aebf
.
* guix/build/download.scm (url-fetch): Return `file' instead of #t upon success.
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
parent
63666a348a
commit
8fbc1a2208
|
@ -770,7 +770,7 @@ otherwise simply ignore them."
|
||||||
#:reporter (progress-reporter/file
|
#:reporter (progress-reporter/file
|
||||||
(uri-abbreviation uri) size))
|
(uri-abbreviation uri) size))
|
||||||
(newline)))
|
(newline)))
|
||||||
#t)))
|
file)))
|
||||||
((ftp)
|
((ftp)
|
||||||
(false-if-exception* (ftp-fetch uri file
|
(false-if-exception* (ftp-fetch uri file
|
||||||
#:timeout timeout)))
|
#:timeout timeout)))
|
||||||
|
|
Loading…
Reference in New Issue