ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-15 19:35:25 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

guix: ant-build-system: Do not compress jars.

Browse source 
Fixes <https://bugs.gnu.org/29700>.

* guix/build/ant-build-system.scm (strip-jar-timestamps): Do not compress jar
when repacking.
This commit is contained in:
Ricardo Wurmus 2017-12-13 23:35:13 +01:00
parent e536b1d308
commit 1bc147d609
No known key found for this signature in database
GPG key ID: 197A5888235FACAC
1 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
guix/build/ant-build-system.scm
View file

@ -197,9 +197,12 @@ (define (repack-archive jar)
;; first. ;; first.
(with-directory-excursion dir (with-directory-excursion dir
(let* ((files (find-files "." ".*" #:directories? #t)) (let* ((files (find-files "." ".*" #:directories? #t))
;; To ensure that the reference scanner can detect all
;; store references in the jars we disable compression
;; with the "-0" option.
(command (if (file-exists? manifest) (command (if (file-exists? manifest)
`("zip" "-X" ,jar ,manifest ,@files) `("zip" "-0" "-X" ,jar ,manifest ,@files)
`("zip" "-X" ,jar ,@files)))) `("zip" "-0" "-X" ,jar ,@files))))
(unless (zero? (apply system* command)) (unless (zero? (apply system* command))
(error "'zip' failed")))) (error "'zip' failed"))))
(utime jar 0 0) (utime jar 0 0)