summary refs log tree commit diff
path: root/gnu/packages
diff options
context:
space:
mode:
authorEfraim Flashner <efraim@flashner.co.il>2016-11-22 12:33:43 +0200
committerEfraim Flashner <efraim@flashner.co.il>2016-11-22 14:00:11 +0200
commit83a3e805bebe35bdb95399d22d14466a9eb85133 (patch)
tree226f3b7c1ae0eb7c52fc6457a3aacfe39f280017 /gnu/packages
parentee7518a009f2595879bb7e0275fa1f7ba8740819 (diff)
downloadguix-83a3e805bebe35bdb95399d22d14466a9eb85133.tar.gz
gnu: w3m: Use 'modify-phases' syntax.
* gnu/packages/w3m.scm (w3m)[arguments]: Use 'modify-phases' syntax.
Diffstat (limited to 'gnu/packages')
-rw-r--r--gnu/packages/w3m.scm18
1 files changed, 10 insertions, 8 deletions
diff --git a/gnu/packages/w3m.scm b/gnu/packages/w3m.scm
index 5f0fb56b0c..61035aba52 100644
--- a/gnu/packages/w3m.scm
+++ b/gnu/packages/w3m.scm
@@ -2,6 +2,7 @@
 ;;; Copyright © 2013 Nikita Karetnikov <nikita@karetnikov.org>
 ;;; Copyright © 2016 Leo Famulari <leo@famulari.name>
 ;;; Copyright © 2016 Kei Kebreau <kei@openmailbox.org>
+;;; Copyright © 2016 Efraim Flashner <efraim@flashner.co.il>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -48,14 +49,15 @@
                (base32
                 "142vkkmsk76wj9w6r4y2pa1hmy1kkzmc73an9zchx0ikm2z92x6s"))))
     (build-system gnu-build-system)
-    (arguments `(#:tests? #f  ; no check target
-                 #:phases (alist-cons-before
-                           'configure 'fix-perl
-                           (lambda _
-                             (substitute* '("scripts/w3mmail.cgi.in"
-                                            "scripts/dirlist.cgi.in")
-                               (("@PERL@") (which "perl"))))
-                           %standard-phases)))
+    (arguments
+     '(#:tests? #f  ; no check target
+       #:phases
+       (modify-phases %standard-phases
+         (add-before 'configure 'fix-perl
+           (lambda _ (substitute* '("scripts/w3mmail.cgi.in"
+                                    "scripts/dirlist.cgi.in")
+                       (("@PERL@") (which "perl")))
+             #t)))))
     (inputs
      `(("libgc" ,libgc)
        ("ncurses" ,ncurses)