01/08: gnu: qpdf: Use 'modify-phases'.

[Efraim Flashner]

efraim pushed a commit to branch core-updates
in repository guix.

commit 0adfe0ccbebfb5b18544e3199852bb30da7548c1
Author: Efraim Flashner <address@hidden>
Date:   Mon Aug 15 11:47:08 2016 +0300

    gnu: qpdf: Use 'modify-phases'.
    
    * gnu/packages/pdf.scm (qpdf)[arguments]: Use 'modify-phases'.
---
 gnu/packages/pdf.scm |   22 +++++++++++-----------
 1 file changed, 11 insertions(+), 11 deletions(-)

diff --git a/gnu/packages/pdf.scm b/gnu/packages/pdf.scm
index 439adb9..b79ddeb 100644
--- a/gnu/packages/pdf.scm
+++ b/gnu/packages/pdf.scm
@@ -527,17 +527,17 @@ eval '(exit $?0)' && eval 'exec perl -wS \"$0\" 
${1+\"address@hidden"}'
    (build-system gnu-build-system)
    (arguments
     `(#:disallowed-references (,perl)
-      #:phases (alist-cons-before
-                'configure 'patch-paths
-                (lambda _
-                  (substitute* "make/libtool.mk"
-                    (("SHELL=/bin/bash")
-                     (string-append "SHELL=" (which "bash"))))
-                  (substitute* (append
-                                '("qtest/bin/qtest-driver")
-                                (find-files "." "\\.test"))
-                    (("/usr/bin/env") (which "env"))))
-                %standard-phases)))
+      #:phases
+      (modify-phases %standard-phases
+        (add-before 'configure 'patch-paths
+          (lambda _
+            (substitute* "make/libtool.mk"
+              (("SHELL=/bin/bash")
+               (string-append "SHELL=" (which "bash"))))
+            (substitute* (append
+                          '("qtest/bin/qtest-driver")
+                          (find-files "." "\\.test"))
+              (("/usr/bin/env") (which "env"))))))))
    (native-inputs
     `(("pkg-config" ,pkg-config)
       ("perl" ,perl)))