guix-devel
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[PATCH 2/3] gnu: bash: Use 'install-file' instead of 'mkdir-p' and 'copy


From: Leo Famulari
Subject: [PATCH 2/3] gnu: bash: Use 'install-file' instead of 'mkdir-p' and 'copy-file'.
Date: Sun, 18 Oct 2015 15:40:07 -0400

* gnu/packages/bash.scm (bash): Use 'install-file' instead of 'mkdir-p'
  and 'copy-file'.
---
 gnu/packages/bash.scm | 11 ++---------
 1 file changed, 2 insertions(+), 9 deletions(-)

diff --git a/gnu/packages/bash.scm b/gnu/packages/bash.scm
index e1ddd7c..c65f3c8 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 ((@ (ice-9 regex) 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 ((@ (ice-9 regex) 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 directory))))
                          (find-files "." "\\.h$"))
                (delete-file (string-append include "/" "y.tab.h"))
                #t)))
-- 
2.6.1




reply via email to

[Prev in Thread] Current Thread [Next in Thread]