suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

raco pkg: improve Git repo-download caching

Browse Source 
Drop the path and branch from a URL that references a Git
repository, so that a single download is used for multiple
packages in the same repo.
This commit is contained in:
Matthew Flatt 2015-10-01 22:04:24 -06:00
parent acac7092c5
commit 8c51d50cd2
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
racket/collects/pkg/private/download.rkt
View File

@ -27,12 +27,12 @@
rest]
[_ rp])))
(define (do-cache-file file url checksum use-cache? download-printf download!)
(define (do-cache-file file url key checksum use-cache? download-printf download!)
(cond
[(and use-cache? checksum)
(cache-file file
#:exists-ok? #t
(list (url->string url) checksum)
(list key checksum)
(get-download-cache-dir)
download!
#:log-error-string (lambda (s) (log-pkg-error s))
@ -76,7 +76,8 @@
" server response: ~a")
(url->string url)
(read-line (open-input-string reply-s))))))))))
(do-cache-file file url checksum use-cache? download-printf download!)))
(do-cache-file file url (url->string url) checksum
use-cache? download-printf download!)))
(define (clean-cache pkg-url checksum)
(when pkg-url
@ -116,7 +117,8 @@
#:exists-ok? #t
(directory-list))))
(do-cache-file tmp.tgz url checksum use-cache? download-printf download!)
(do-cache-file tmp.tgz url (vector transport host port repo) checksum
use-cache? download-printf download!)
(unless unpacked?
(untgz tmp.tgz #:dest dest-dir))