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

meta/pkg-build: conflict checking needs all packages

Browse Source
This commit is contained in:
Matthew Flatt 2014-07-04 14:27:59 +01:00
parent fb3e6b8851
commit af7e12c8df
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
pkgs/plt-services/meta/pkg-build/main.rkt
View File

@ -807,11 +807,11 @@
(define doc-pkgs (define doc-pkgs
(for/hash ([doc-pkg (in-list doc-pkg-list)]) (for/hash ([doc-pkg (in-list doc-pkg-list)])
(values doc-pkg (hash-ref adds-pkgs doc-pkg null)))) (values doc-pkg (hash-ref adds-pkgs doc-pkg null))))
(define (add-providers ht doc-pkgs) (define (add-providers ht pkgs)
(for*/fold ([ht ht]) ([(k v) (in-hash doc-pkgs)] (for*/fold ([ht ht]) ([(k v) (in-hash pkgs)]
[(d) (in-list v)]) [(d) (in-list v)])
(hash-update ht d (lambda (l) (set-add l k)) (set)))) (hash-update ht d (lambda (l) (set-add l k)) (set))))
(define providers (add-providers (add-providers (hash) doc-pkgs) (define providers (add-providers (add-providers (hash) adds-pkgs)
(call-with-input-file* (call-with-input-file*
(build-path work-dir "install-adds.rktd") (build-path work-dir "install-adds.rktd")
read))) read)))