gnu: lsof: Shorten 'install phase.

* gnu/packages/lsof.scm (lsof)[arguments]: Use 'install-file during the
'install phase.
This commit is contained in:
Efraim Flashner 2017-04-29 23:39:53 +03:00
parent b6ea329a32
commit 4ae3549f7c
No known key found for this signature in database
GPG key ID: F4C1D3917EACEE93

View file

@ -72,13 +72,9 @@ (define-public lsof
(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.