From mboxrd@z Thu Jan 1 00:00:00 1970 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 Message-ID: <58209094355bba8d7e983078e718369ac6df1a46.1445196542.git.leo@famulari.name> References: Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:49508) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ZntoY-0000KD-Ja for guix-devel@gnu.org; Sun, 18 Oct 2015 15:40:19 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1ZntoV-0006pC-D6 for guix-devel@gnu.org; Sun, 18 Oct 2015 15:40:18 -0400 Received: from out4-smtp.messagingengine.com ([66.111.4.28]:48090) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ZntoV-0006oR-9l for guix-devel@gnu.org; Sun, 18 Oct 2015 15:40:15 -0400 Received: from jasmine.lan (c-69-249-5-231.hsd1.pa.comcast.net [69.249.5.231]) by mail.messagingengine.com (Postfix) with ESMTPA id B23FA6801A6 for ; Sun, 18 Oct 2015 15:40:12 -0400 (EDT) In-Reply-To: In-Reply-To: References: List-Id: "Development of GNU Guix and the GNU System distribution." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org Sender: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org To: guix-devel@gnu.org * 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