diff options
| author | Leo Famulari <leo@famulari.name> | 2015-10-18 15:40:07 -0400 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2015-10-21 19:08:12 +0200 |
| commit | c30f65237b647dfe2d836ae3ceba3af970e3d8c7 (patch) | |
| tree | d2ea5367fbadc70c2250f8d41d84d23a2f11caff | |
| parent | 3dcbb75f63be519f5ce723117844c2f6c6639d89 (diff) | |
| download | gnu-guix-c30f65237b647dfe2d836ae3ceba3af970e3d8c7.tar gnu-guix-c30f65237b647dfe2d836ae3ceba3af970e3d8c7.tar.gz | |
gnu: bash: Use 'install-file' instead of 'mkdir-p' and 'copy-file'.
* gnu/packages/bash.scm (bash): Use 'install-file' instead of 'mkdir-p'
and 'copy-file'.
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
| -rw-r--r-- | gnu/packages/bash.scm | 15 |
1 files changed, 4 insertions, 11 deletions
diff --git a/gnu/packages/bash.scm b/gnu/packages/bash.scm index 714fa8c596..b2f23a8442 100644 --- a/gnu/packages/bash.scm +++ b/gnu/packages/bash.scm @@ -149,18 +149,11 @@ number/base32-hash tuples, directly usable in the 'patch-series' form." (mkdir-p include) (for-each (lambda (file) (when (string-match includes file) - (let ((directory (string-append include))) - (mkdir-p directory) - (copy-file file - (string-append directory "/" - (basename file))))) + (install-file file include)) (when (string-match headers file) - (let ((directory (string-append include "/" - (dirname file)))) - (mkdir-p directory) - (copy-file file - (string-append directory "/" - (basename file)))))) + (install-file file + (string-append include "/" + (dirname file))))) (find-files "." "\\.h$")) (delete-file (string-append include "/" "y.tab.h")) #t))) |