01/02: download: Print URL of the Disarchive spec being read.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 5b81999c899e8dc1318b93a4dc62f6bab7382169
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Thu Oct 14 16:43:08 2021 +0200

    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(+)

diff --git a/guix/build/download.scm b/guix/build/download.scm
index f194332..7c310e9 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))))