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

ensure package name is used in all metadata calls

Browse Source
This commit is contained in:
Jay McCarthy 2014-03-08 14:01:08 -07:00
parent e2e0ab748f
commit 2d1859a984
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
pkgs/plt-services/meta/pkg-index/official/update.rkt
View File

@ -32,7 +32,8 @@
(printf "\tupdating ~a\n" pkg-name) (printf "\tupdating ~a\n" pkg-name)
(define new-checksum (define new-checksum
(package-url->checksum (package-url->checksum
(package-ref i 'source))) (package-ref i 'source)
#:pkg-name pkg-name))
(package-begin (package-begin
(define* i (define* i
(hash-set i 'checksum (hash-set i 'checksum
@ -47,7 +48,8 @@
(define old-checksum (hash-ref vi 'checksum "")) (define old-checksum (hash-ref vi 'checksum ""))
(define new-checksum (define new-checksum
(package-url->checksum (package-url->checksum
(hash-ref vi 'source ""))) (hash-ref vi 'source "")
#:pkg-name pkg-name))
(values v (values v
(hash-set vi 'checksum (hash-set vi 'checksum
(or new-checksum (or new-checksum
@ -67,7 +69,7 @@
(define-values (checksum module-paths dependencies) (define-values (checksum module-paths dependencies)
(pkg:get-pkg-content (pkg:pkg-desc (hash-ref i 'source) (pkg:get-pkg-content (pkg:pkg-desc (hash-ref i 'source)
#f #f
#f (hash-ref i 'name)
(hash-ref i 'checksum) (hash-ref i 'checksum)
#f))) #f)))
(package-begin (package-begin