From 8fbc1a22084640ad5cd0df1234bfd42b5d92ef98 Mon Sep 17 00:00:00 2001
From: Maxim Cournoyer <maxim.cournoyer@gmail.com>
Date: Sat, 27 Jan 2018 12:22:11 -0500
Subject: download: Fix return value of the url-fetch procedure.
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

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>
---
 guix/build/download.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'guix')

diff --git a/guix/build/download.scm b/guix/build/download.scm
index 609a100538..1b630a9d6d 100644
--- a/guix/build/download.scm
+++ b/guix/build/download.scm
@@ -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)))
-- 
cgit v1.2.3