diff options
author | Efraim Flashner <efraim@flashner.co.il> | 2017-04-29 23:23:54 +0300 |
---|---|---|
committer | Efraim Flashner <efraim@flashner.co.il> | 2017-04-29 23:25:22 +0300 |
commit | b6ea329a32f1d1da17ff72affab2e1fe16aff51f (patch) | |
tree | d997ff7b147aabb51ba13e1bf1f36be0958a162a | |
parent | d5fa9fd1fe90ad024ec5a14c21c95407e1f78441 (diff) | |
download | patches-b6ea329a32f1d1da17ff72affab2e1fe16aff51f.tar patches-b6ea329a32f1d1da17ff72affab2e1fe16aff51f.tar.gz |
gnu: lsof: Use 'modify-phases' syntax.
* gnu/packages/lsof.scm (lsof)[arguments]: Use 'modify-phases' syntax.
-rw-r--r-- | gnu/packages/lsof.scm | 47 |
1 files changed, 22 insertions, 25 deletions
diff --git a/gnu/packages/lsof.scm b/gnu/packages/lsof.scm index e4730baa8b..97658c856a 100644 --- a/gnu/packages/lsof.scm +++ b/gnu/packages/lsof.scm @@ -1,5 +1,6 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2013 Andreas Enge <andreas@enge.fr> +;;; Copyright © 2017 Efraim Flashner <efraim@flashner.co.il> ;;; ;;; This file is part of GNU Guix. ;;; @@ -57,31 +58,27 @@ (arguments `(#:tests? #f ; no test target #:phases - (alist-replace - 'unpack - (lambda* (#:key source #:allow-other-keys) - (let ((unpack (assoc-ref %standard-phases 'unpack))) - (unpack #:source source) - (unpack #:source (car (find-files "." "\\.tar$"))))) - (alist-replace - 'configure - (lambda _ - (setenv "LSOF_CC" "gcc") - (setenv "LSOF_MAKE" "make") - (system* "./Configure" "linux")) - (alist-replace - 'install - (lambda* (#:key outputs #:allow-other-keys) - (let ((out (assoc-ref outputs "out"))) - (mkdir out) - (mkdir (string-append out "/bin")) - (copy-file "lsof" (string-append out "/bin/lsof")) - (mkdir (string-append out "/share")) - (mkdir (string-append out "/share/man")) - (mkdir (string-append out "/share/man/man8")) - (copy-file "lsof.8" (string-append out "/share/man/man8/lsof.8")) - )) - %standard-phases))))) + (modify-phases %standard-phases + (replace 'unpack + (lambda* (#:key source #:allow-other-keys) + (let ((unpack (assoc-ref %standard-phases 'unpack))) + (unpack #:source source) + (unpack #:source (car (find-files "." "\\.tar$")))))) + (replace 'configure + (lambda _ + (setenv "LSOF_CC" "gcc") + (setenv "LSOF_MAKE" "make") + (zero? (system* "./Configure" "linux")))) + (replace 'install + (lambda* (#:key outputs #:allow-other-keys) + (let ((out (assoc-ref outputs "out"))) + (mkdir out) + (mkdir (string-append out "/bin")) + (copy-file "lsof" (string-append out "/bin/lsof")) + (mkdir (string-append out "/share")) + (mkdir (string-append out "/share/man")) + (mkdir (string-append out "/share/man/man8")) + (copy-file "lsof.8" (string-append out "/share/man/man8/lsof.8")))))))) (synopsis "Display information about open files") (description "Lsof stands for LiSt Open Files, and it does just that. |