~ruther/guix-local

be1e35055b479291fe538a5280f67e9b3c03e81f — Efraim Flashner 9 years ago 0a20f40
gnu: moreutils: Use 'modify-phases'.

* gnu/packages/moreutils.scm (moreutils)[arguments]: Use 'modify-phases'.
1 files changed, 11 insertions(+), 12 deletions(-)

M gnu/packages/moreutils.scm
M gnu/packages/moreutils.scm => gnu/packages/moreutils.scm +11 -12
@@ 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")))