03/08: gnu: zerofree: Use ‘install-file’.

[Tobias Geerinckx-Rice]

nckx pushed a commit to branch master
in repository guix.

commit 7a068459ba9f1dd6f3dee12e39124a0c8b603ced
Author: Tobias Geerinckx-Rice <address@hidden>
Date:   Thu Aug 3 22:22:43 2017 +0200

    gnu: zerofree: Use ‘install-file’.
    
    * 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 76f97f7..4810370 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)))