From af7e12c8df64f34201a5404cab6c98068b980af9 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 4 Jul 2014 14:27:59 +0100 Subject: [PATCH] meta/pkg-build: conflict checking needs all packages --- pkgs/plt-services/meta/pkg-build/main.rkt | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/pkgs/plt-services/meta/pkg-build/main.rkt b/pkgs/plt-services/meta/pkg-build/main.rkt index 17d8d10cd3..e22392c7ad 100644 --- a/pkgs/plt-services/meta/pkg-build/main.rkt +++ b/pkgs/plt-services/meta/pkg-build/main.rkt @@ -807,11 +807,11 @@ (define doc-pkgs (for/hash ([doc-pkg (in-list doc-pkg-list)]) (values doc-pkg (hash-ref adds-pkgs doc-pkg null)))) - (define (add-providers ht doc-pkgs) - (for*/fold ([ht ht]) ([(k v) (in-hash doc-pkgs)] + (define (add-providers ht pkgs) + (for*/fold ([ht ht]) ([(k v) (in-hash pkgs)] [(d) (in-list v)]) (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* (build-path work-dir "install-adds.rktd") read)))