[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
03/03: gnu: netpbm: Delete files natively.
From: |
guix-commits |
Subject: |
03/03: gnu: netpbm: Delete files natively. |
Date: |
Wed, 1 Apr 2020 13:05:20 -0400 (EDT) |
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