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

meta/pkg-build: support version for pkg catalog query

Browse Source
This commit is contained in:
Matthew Flatt 2014-08-06 09:38:29 +01:00
parent ac248006f9
commit e6423b7610
1 changed files with 13 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -188,6 +188,10 @@
;; Catalogs of packages to build (via an archive):
#:pkg-catalogs [pkg-catalogs (list "http://pkgs.racket-lang.org/")]
;; The Racket version to use in queries to archived catalogs;
;; this version should be consistent with `snapshot-url`.
#:pkgs-for-version [pkgs-for-version (version)]
;; Extra packages to install within an installation so that
;; they're treated like packages included in the installer;
;; these should be built packages (normally from the snapshot
@ -310,14 +314,15 @@
(status "Archiving packages from\n")
(show-list (cons snapshot-catalog pkg-catalogs))
(make-directory* archive-dir)
(pkg-catalog-archive archive-dir
(cons snapshot-catalog pkg-catalogs)
#:state-catalog state-file
#:relative-sources? #t
#:package-exn-handler (lambda (name exn)
(log-error "~a\nSKIPPING ~a"
(exn-message exn)
name))))
(parameterize ([current-pkg-lookup-version pkgs-for-version])
(pkg-catalog-archive archive-dir
(cons snapshot-catalog pkg-catalogs)
#:state-catalog state-file
#:relative-sources? #t
#:package-exn-handler (lambda (name exn)
(log-error "~a\nSKIPPING ~a"
(exn-message exn)
name)))))
(define snapshot-pkg-names
(parameterize ([current-pkg-catalogs (list (string->url snapshot-catalog))])