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:
Maxim Cournoyer 2018-01-27 12:22:11 -05:00 committed by Ludovic Courtès
parent 63666a348a
commit 8fbc1a2208
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 1 additions and 1 deletions

View File

@ -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)))