From 7a068459ba9f1dd6f3dee12e39124a0c8b603ced Mon Sep 17 00:00:00 2001 From: Tobias Geerinckx-Rice Date: Thu, 3 Aug 2017 22:22:43 +0200 Subject: gnu: zerofree: Use ‘install-file’. MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit * gnu/packages/linux.scm (zerofree)[arguments]: Simplify install phase, using ‘install-file’. --- gnu/packages/linux.scm | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) diff --git a/gnu/packages/linux.scm b/gnu/packages/linux.scm index 76f97f7e8a..481037066b 100644 --- a/gnu/packages/linux.scm +++ b/gnu/packages/linux.scm @@ -841,11 +841,8 @@ ext3 or ext4 partition.") (lambda* (#:key outputs #:allow-other-keys) (let* ((out (assoc-ref outputs "out")) (bin (string-append out "/bin"))) - (mkdir-p bin) - (copy-file "zerofree" - (string-append bin "/zerofree")) - (chmod (string-append bin "/zerofree") - #o555) + (chmod "zerofree" #o555) + (install-file "zerofree" bin) #t)))) #:tests? #f)) ; no tests (inputs `(("libext2fs" ,e2fsprogs))) -- cgit 1.4.1