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

pkg/lib: create and unpack ".zip" files with timestamps as UTC

Browse Source
This commit is contained in:
Matthew Flatt 2014-06-10 16:20:27 +01:00
parent e5dd7183b5
commit 2ea5fa3631
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1294,7 +1294,8 @@
(remove-extra-directory-layer pkg-dir)]
[#"zip"
(unzip pkg-path (make-filesystem-entry-reader #:dest pkg-dir)
#:preserve-timestamps? #t)
#:preserve-timestamps? #t
#:utc-timestamps? #t)
(remove-extra-directory-layer pkg-dir)]
[#"plt"
(make-directory* pkg-dir)
@ -2660,7 +2661,9 @@
(apply zip pkg/complete content
#:path-prefix (and (add-directory-layer? content)
pkg-name)
#:get-timestamp file-or-directory-timestamp)))]
#:get-timestamp file-or-directory-timestamp
#:utc-timestamps? #t
#:round-timestamps-down? #t)))]
['plt
(define dest pkg/complete)
(when (pkg-single-collection #:name pkg-name dir)