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

avoid "." files when packing "racket/collects"

Browse Source
This commit is contained in:
Matthew Flatt 2016-01-01 14:39:27 -07:00
parent 73ef7423da
commit 609f3f5f10
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
distro-build-server/pack-collects.rkt
View File

@ -16,4 +16,8 @@
(delete-file tgz-file))
(parameterize ([current-directory (build-path "racket")])
(tar-gzip tgz-file "collects"))
(tar-gzip tgz-file "collects"
;; Skip "." files:
#:path-filter (lambda (p)
(define-values (base name dir?) (split-path p))
(not (regexp-match? #rx"^[.]" name)))))