ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-11 13:49:23 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: libpng-apng: Be sure to apply the APNG patch.

Browse source 
* gnu/packages/image.scm (libpng-apng)[arguments]: Check the return status of
the patching procedures.
This commit is contained in:
Leo Famulari 2017-08-02 11:16:30 -04:00
parent e0958c2df8
commit 696f1d0fb1
No known key found for this signature in database
GPG key ID: 2646FA30BACA7F08
1 changed files with 8 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
gnu/packages/image.scm
View file

@ -113,7 +113,10 @@ (define-public libpng-apng
"0ylgyx93hnk38haqrh8prd3ax5ngzwvjqw5cxw7p9nxmwsfyrlyq")))) "0ylgyx93hnk38haqrh8prd3ax5ngzwvjqw5cxw7p9nxmwsfyrlyq"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:phases `(#:modules ((guix build gnu-build-system)
(guix build utils)
(srfi srfi-1))
#:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-after 'unpack 'patch-apng (add-after 'unpack 'patch-apng
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
@ -123,11 +126,10 @@ (define (apply-patch file)
(let ((apng.gz (assoc-ref inputs "apng"))) (let ((apng.gz (assoc-ref inputs "apng")))
(format #t "Applying APNG patch '~a'...~%" (format #t "Applying APNG patch '~a'...~%"
apng.gz) apng.gz)
(system (string-append "gunzip < " apng.gz " > the-patch")) (and
(and (apply-patch "the-patch") (zero?
(for-each apply-patch (system (string-append "gunzip < " apng.gz " > the-patch")))
(find-files "\\.patch")))) (apply-patch "the-patch")))))
#t))
(add-before 'configure 'no-checks (add-before 'configure 'no-checks
(lambda _ (lambda _
(substitute* "Makefile.in" (substitute* "Makefile.in"