[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
02/03: gnu: bash: Use 'install-file' instead of 'mkdir-p' and 'copy-file
From: |
Ludovic Courtès |
Subject: |
02/03: gnu: bash: Use 'install-file' instead of 'mkdir-p' and 'copy-file'. |
Date: |
Wed, 21 Oct 2015 19:20:16 +0000 |
civodul pushed a commit to branch core-updates
in repository guix.
commit c30f65237b647dfe2d836ae3ceba3af970e3d8c7
Author: Leo Famulari <address@hidden>
Date: Sun Oct 18 15:40:07 2015 -0400
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 <address@hidden>
---
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 714fa8c..b2f23a8 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)))