diff options
| author | Efraim Flashner <efraim@flashner.co.il> | 2017-04-29 23:39:53 +0300 |
|---|---|---|
| committer | Efraim Flashner <efraim@flashner.co.il> | 2017-04-29 23:41:05 +0300 |
| commit | 4ae3549f7cd57ecd09ebd957ec512dd530dc83d0 (patch) | |
| tree | 777f01a28ec6ab29b73a027f71ce3b661119f3ab | |
| parent | b6ea329a32f1d1da17ff72affab2e1fe16aff51f (diff) | |
| download | guix-4ae3549f7cd57ecd09ebd957ec512dd530dc83d0.tar.gz | |
gnu: lsof: Shorten 'install phase.
* gnu/packages/lsof.scm (lsof)[arguments]: Use 'install-file during the 'install phase.
| -rw-r--r-- | gnu/packages/lsof.scm | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/gnu/packages/lsof.scm b/gnu/packages/lsof.scm index 97658c856a..5442936a49 100644 --- a/gnu/packages/lsof.scm +++ b/gnu/packages/lsof.scm @@ -72,13 +72,9 @@ (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")))))))) + (install-file "lsof" (string-append out "/bin")) + (install-file "lsof.8" (string-append out "/share/man/man8"))) + #t))))) (synopsis "Display information about open files") (description "Lsof stands for LiSt Open Files, and it does just that. |