raco pkg: report when downloading

This commit is contained in:
Matthew Flatt 2013-04-20 09:35:37 -06:00
parent a9cc79c89b
commit 2d6fd46720

View File

@ -96,6 +96,7 @@
(unless fail-okay? (unless fail-okay?
(raise x)))]) (raise x)))])
(make-parent-directory* file) (make-parent-directory* file)
(printf "Downloading ~a\n" (url->string url))
(log-pkg-debug "\t\tDownloading ~a to ~a" (url->string url) file) (log-pkg-debug "\t\tDownloading ~a to ~a" (url->string url) file)
(call-with-output-file file (call-with-output-file file
(λ (op) (λ (op)