~ruther/guix-local: gnu: zerofree: Use ‘install-file’.

7a068459ba9f1dd6f3dee12e39124a0c8b603ced — Tobias Geerinckx-Rice 8 years ago 0f08917

gnu: zerofree: Use ‘install-file’.

* gnu/packages/linux.scm (zerofree)[arguments]: Simplify install phase,
using ‘install-file’.

patch browse .tar.gz

1 files changed, 2 insertions(+), 5 deletions(-)

M gnu/packages/linux.scm

M gnu/packages/linux.scm => gnu/packages/linux.scm +2 -5

@@ 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)))