From f9d6edd8ec41fa6d3eb96dd899089b1cd41caeac Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 29 May 2014 13:19:47 +0100 Subject: [PATCH] raco pkg catalog-archive: keep module & dependency info Also fixes another relative-path problem. --- racket/collects/pkg/lib.rkt | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) diff --git a/racket/collects/pkg/lib.rkt b/racket/collects/pkg/lib.rkt index 3537b944ea..da68e11bc9 100644 --- a/racket/collects/pkg/lib.rkt +++ b/racket/collects/pkg/lib.rkt @@ -3282,11 +3282,19 @@ (define new-checksum (file->string (path-replace-suffix pkg-file #".zip.CHECKSUM"))) (parameterize ([db:current-pkg-catalog-file temp-catalog-file]) + (define modules (db:get-pkg-modules name (db:pkg-catalog pkg) current-checksum)) + (define dependencies (db:get-pkg-dependencies name (db:pkg-catalog pkg) current-checksum)) (db:set-pkg! name (db:pkg-catalog pkg) (db:pkg-author pkg) - (path->string pkg-file) + (path->string (path->complete-path pkg-file)) new-checksum - (db:pkg-desc pkg)))) + (db:pkg-desc pkg)) + (db:set-pkg-modules! name (db:pkg-catalog pkg) + new-checksum + modules) + (db:set-pkg-dependencies! name (db:pkg-catalog pkg) + new-checksum + dependencies))) (define dest-catalog (build-path dest-dir "catalog")) (unless quiet? (printf/flush "Creating catalog ~a\n" dest-catalog))