[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
02/02: gnu: moreutils: Use 'modify-phases'.
From: |
Efraim Flashner |
Subject: |
02/02: gnu: moreutils: Use 'modify-phases'. |
Date: |
Fri, 27 May 2016 04:06:43 +0000 (UTC) |
efraim pushed a commit to branch master
in repository guix.
commit be1e35055b479291fe538a5280f67e9b3c03e81f
Author: Efraim Flashner <address@hidden>
Date: Fri May 27 07:06:02 2016 +0300
gnu: moreutils: Use 'modify-phases'.
* gnu/packages/moreutils.scm (moreutils)[arguments]: Use 'modify-phases'.
---
gnu/packages/moreutils.scm | 23 +++++++++++------------
1 file changed, 11 insertions(+), 12 deletions(-)
diff --git a/gnu/packages/moreutils.scm b/gnu/packages/moreutils.scm
index a98fe33..79e2a42 100644
--- a/gnu/packages/moreutils.scm
+++ b/gnu/packages/moreutils.scm
@@ -46,18 +46,17 @@
("docbook-xsl" ,docbook-xsl)))
(arguments
`(#:phases
- (alist-replace
- 'configure
- (lambda* (#:key inputs #:allow-other-keys)
- (use-modules (srfi srfi-1))
- (substitute* "Makefile"
- (("/usr/share/xml/.*/docbook.xsl")
- (let* ((docbook-xsl (assoc-ref inputs "docbook-xsl"))
- (files (find-files docbook-xsl "^docbook\\.xsl$")))
- (find (lambda (file)
- (string-suffix? "/manpages/docbook.xsl" file))
- files)))))
- %standard-phases)
+ (modify-phases %standard-phases
+ (replace 'configure
+ (lambda* (#:key inputs #:allow-other-keys)
+ (use-modules (srfi srfi-1))
+ (substitute* "Makefile"
+ (("/usr/share/xml/.*/docbook.xsl")
+ (let* ((docbook-xsl (assoc-ref inputs "docbook-xsl"))
+ (files (find-files docbook-xsl "^docbook\\.xsl$")))
+ (find (lambda (file)
+ (string-suffix? "/manpages/docbook.xsl" file))
+ files)))))))
#:make-flags
(list (string-append "PREFIX=" (assoc-ref %outputs "out"))
"CC=gcc")))