From 475d5d8d159298b3f275ceda24d3754be1eeb9b8 Mon Sep 17 00:00:00 2001 From: Tobias Geerinckx-Rice Date: Wed, 1 Apr 2020 19:04:32 +0200 Subject: gnu: netpbm: Delete files natively. MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit * 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(-) (limited to 'gnu/packages/netpbm.scm') diff --git a/gnu/packages/netpbm.scm b/gnu/packages/netpbm.scm index af005c6aec..c88b5a9dff 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 -- cgit 1.4.1