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)
(define new-checksum
(package-url->checksum
(package-ref i 'source)))
(package-ref i 'source)
#:pkg-name pkg-name))
(package-begin
(define* i
(hash-set i 'checksum
@ -47,7 +48,8 @@
(define old-checksum (hash-ref vi 'checksum ""))
(define new-checksum
(package-url->checksum
(hash-ref vi 'source "")))
(hash-ref vi 'source "")
#:pkg-name pkg-name))
(values v
(hash-set vi 'checksum
(or new-checksum
@ -67,7 +69,7 @@
(define-values (checksum module-paths dependencies)
(pkg:get-pkg-content (pkg:pkg-desc (hash-ref i 'source)
#f
#f
(hash-ref i 'name)
(hash-ref i 'checksum)
#f)))
(package-begin