From 5b81999c899e8dc1318b93a4dc62f6bab7382169 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Thu, 14 Oct 2021 16:43:08 +0200
Subject: download: Print URL of the Disarchive spec being read.

* guix/build/download.scm (disarchive-fetch/any): Show URI of the
Disarchive spec.
---
 guix/build/download.scm | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'guix/build')

diff --git a/guix/build/download.scm b/guix/build/download.scm
index f1943328d0..7c310e94f1 100644
--- a/guix/build/download.scm
+++ b/guix/build/download.scm
@@ -646,6 +646,8 @@ and write the output to FILE."
                                                   #:verify-certificate?
                                                   verify-certificate?
                                                   #:timeout timeout)))
+              (format #t "Retrieving Disarchive spec from ~a ...~%"
+                      (uri->string uri))
               (let ((specification (read port)))
                 (close-port port)
                 specification))))
-- 
cgit v1.2.3