3
5
Fork 0
mirror of git://git.savannah.gnu.org/guix.git synced 2023-12-14 03:33:07 +01:00

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

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