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

View file

@ -770,7 +770,7 @@ (define (fetch uri file)
#:reporter (progress-reporter/file
(uri-abbreviation uri) size))
(newline)))
#t)))
file)))
((ftp)
(false-if-exception* (ftp-fetch uri file
#:timeout timeout)))