From 696f1d0fb1d3f5211d9b38d0f70a5f5c9055a641 Mon Sep 17 00:00:00 2001 From: Leo Famulari Date: Wed, 2 Aug 2017 11:16:30 -0400 Subject: gnu: libpng-apng: Be sure to apply the APNG patch. * gnu/packages/image.scm (libpng-apng)[arguments]: Check the return status of the patching procedures. --- gnu/packages/image.scm | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) (limited to 'gnu') diff --git a/gnu/packages/image.scm b/gnu/packages/image.scm index ab560d2acb..63e3fa5049 100644 --- a/gnu/packages/image.scm +++ b/gnu/packages/image.scm @@ -113,7 +113,10 @@ library. It supports almost all PNG features and is extensible.") "0ylgyx93hnk38haqrh8prd3ax5ngzwvjqw5cxw7p9nxmwsfyrlyq")))) (build-system gnu-build-system) (arguments - `(#:phases + `(#:modules ((guix build gnu-build-system) + (guix build utils) + (srfi srfi-1)) + #:phases (modify-phases %standard-phases (add-after 'unpack 'patch-apng (lambda* (#:key inputs #:allow-other-keys) @@ -123,11 +126,10 @@ library. It supports almost all PNG features and is extensible.") (let ((apng.gz (assoc-ref inputs "apng"))) (format #t "Applying APNG patch '~a'...~%" apng.gz) - (system (string-append "gunzip < " apng.gz " > the-patch")) - (and (apply-patch "the-patch") - (for-each apply-patch - (find-files "\\.patch")))) - #t)) + (and + (zero? + (system (string-append "gunzip < " apng.gz " > the-patch"))) + (apply-patch "the-patch"))))) (add-before 'configure 'no-checks (lambda _ (substitute* "Makefile.in" -- cgit 1.4.1