summary refs log tree commit diff
path: root/gnu/packages/bash.scm
diff options
context:
space:
mode:
authorLeo Famulari <leo@famulari.name>2015-10-18 15:40:07 -0400
committerLudovic Courtès <ludo@gnu.org>2015-10-21 19:08:12 +0200
commitc30f65237b647dfe2d836ae3ceba3af970e3d8c7 (patch)
treed2ea5367fbadc70c2250f8d41d84d23a2f11caff /gnu/packages/bash.scm
parent3dcbb75f63be519f5ce723117844c2f6c6639d89 (diff)
downloadguix-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>
Diffstat (limited to 'gnu/packages/bash.scm')
-rw-r--r--gnu/packages/bash.scm15
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)))