03/04: gnu: lsof: Shorten 'install phase.

[Efraim Flashner]

efraim pushed a commit to branch master
in repository guix.

commit 4ae3549f7cd57ecd09ebd957ec512dd530dc83d0
Author: Efraim Flashner <address@hidden>
Date:   Sat Apr 29 23:39:53 2017 +0300

    gnu: lsof: Shorten 'install phase.
    
    * gnu/packages/lsof.scm (lsof)[arguments]: Use 'install-file during the
    'install phase.
---
 gnu/packages/lsof.scm | 10 +++-------
 1 file changed, 3 insertions(+), 7 deletions(-)

diff --git a/gnu/packages/lsof.scm b/gnu/packages/lsof.scm
index 97658c8..5442936 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.