download: Print URL of the Disarchive spec being read.

* guix/build/download.scm (disarchive-fetch/any): Show URI of the
Disarchive spec.
This commit is contained in:
Ludovic Courtès 2021-10-14 16:43:08 +02:00
parent 2c3a0f248b
commit 5b81999c89
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 2 additions and 0 deletions

View File

@ -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))))