summary refs log tree commit diff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2021-10-14 16:43:08 +0200
committerLudovic Courtès <ludo@gnu.org>2021-10-14 16:45:06 +0200
commit5b81999c899e8dc1318b93a4dc62f6bab7382169 (patch)
treeb19ff0d4356483dab88adc9de52fed751427d6be
parent2c3a0f248b5ce35da3d502f0cce555610d440772 (diff)
downloadguix-5b81999c899e8dc1318b93a4dc62f6bab7382169.tar.gz
download: Print URL of the Disarchive spec being read.
* guix/build/download.scm (disarchive-fetch/any): Show URI of the
Disarchive spec.
-rw-r--r--guix/build/download.scm2
1 files changed, 2 insertions, 0 deletions
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))))