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

raco pkg catalog-archive: build on raco pkg catalog-copy

Browse Source 
... instead of `pkg-catalog-update-local`.
This commit is contained in:
Matthew Flatt 2014-06-10 13:33:42 +01:00
parent cbc734e75b
commit 3342c19210
1 changed files with 5 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
racket/collects/pkg/lib.rkt
View File

@ -3250,14 +3250,11 @@
state-catalog))
;; Take a snapshot of the source catalog:
(define temp-catalog-file (make-temporary-file "pkg~a.sqlite"))
(pkg-catalog-update-local #:catalogs (append (map url-or-path->url-string
(map src->url-or-path src-catalogs))
(if from-config?
(pkg-config-catalogs)
null))
#:set-catalogs? #t
#:catalog-file temp-catalog-file
#:quiet? quiet?)
(pkg-catalog-copy (map url-or-path->url-string
(map src->url-or-path src-catalogs))
temp-catalog-file
#:force? #t ; replaces temporary file
#:from-config? from-config?)
(define pkgs
(parameterize ([db:current-pkg-catalog-file temp-catalog-file])
(db:get-pkgs)))