gnu: zerofree: Use ‘install-file’.

* gnu/packages/linux.scm (zerofree)[arguments]: Simplify install phase, using ‘install-file’.
2017-08-03 22:22:43 +02:00 · 2017-08-03 22:22:43 +02:00 · 7a068459ba
parent 0f08917df3
commit 7a068459ba
1 changed files with 2 additions and 5 deletions
--- 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)))