03/03: gnu: netpbm: Delete files natively.

[guix-commits]

nckx pushed a commit to branch master
in repository guix.

commit 475d5d8d159298b3f275ceda24d3754be1eeb9b8
Author: Tobias Geerinckx-Rice <address@hidden>
AuthorDate: Wed Apr 1 19:04:32 2020 +0200

    gnu: netpbm: Delete files natively.
    
    * gnu/packages/netpbm.scm (netpbm)[arguments]: Delete files with
    DELETE-FILE-RECURSIVELY instead of invoking ‘rm’.
---
 gnu/packages/netpbm.scm | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/gnu/packages/netpbm.scm b/gnu/packages/netpbm.scm
index af005c6..c88b5a9 100644
--- a/gnu/packages/netpbm.scm
+++ b/gnu/packages/netpbm.scm
@@ -171,12 +171,10 @@
              (apply invoke "make" "package"
                     (string-append "pkgdir=" out) make-flags)
              ;; Remove superfluous files.
-             (invoke "rm" "-r" (string-append out "/link"))
-             (invoke "rm" "-r" (string-append out "/misc"))
              (with-directory-excursion out
-               (for-each delete-file
-                         '("config_template" "pkginfo" "README"
-                           "VERSION")))
+               (for-each delete-file-recursively
+                         '("config_template" "pkginfo" "README" "VERSION"
+                           "link/" "misc/")))
              #t))))))
    (synopsis "Toolkit for manipulation of images")
    (description