mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-11-07 15:36:20 -05:00
gnu: netpbm: Delete files natively.
* gnu/packages/netpbm.scm (netpbm)[arguments]: Delete files with DELETE-FILE-RECURSIVELY instead of invoking ‘rm’.
This commit is contained in:
parent
079ffbcfaf
commit
475d5d8d15
1 changed files with 3 additions and 5 deletions
|
@ -171,12 +171,10 @@ (define-syntax drop
|
||||||
(apply invoke "make" "package"
|
(apply invoke "make" "package"
|
||||||
(string-append "pkgdir=" out) make-flags)
|
(string-append "pkgdir=" out) make-flags)
|
||||||
;; Remove superfluous files.
|
;; Remove superfluous files.
|
||||||
(invoke "rm" "-r" (string-append out "/link"))
|
|
||||||
(invoke "rm" "-r" (string-append out "/misc"))
|
|
||||||
(with-directory-excursion out
|
(with-directory-excursion out
|
||||||
(for-each delete-file
|
(for-each delete-file-recursively
|
||||||
'("config_template" "pkginfo" "README"
|
'("config_template" "pkginfo" "README" "VERSION"
|
||||||
"VERSION")))
|
"link/" "misc/")))
|
||||||
#t))))))
|
#t))))))
|
||||||
(synopsis "Toolkit for manipulation of images")
|
(synopsis "Toolkit for manipulation of images")
|
||||||
(description
|
(description
|
||||||
|
|
Loading…
Reference in a new issue