-
This commit is contained in:
@@ -146,7 +146,7 @@
|
|||||||
(displayln "Unzipping...")
|
(displayln "Unzipping...")
|
||||||
(let ((cd (current-directory)))
|
(let ((cd (current-directory)))
|
||||||
(current-directory install-path)
|
(current-directory install-path)
|
||||||
(unzip file)
|
(unzip file #:preserve-attributes? #t #:preserve-timestamps? #t)
|
||||||
(current-directory cd))
|
(current-directory cd))
|
||||||
(displayln "Removing zip archive")
|
(displayln "Removing zip archive")
|
||||||
(delete-file file)
|
(delete-file file)
|
||||||
|
|||||||
Reference in New Issue
Block a user