GNU bug report logs - #40117
[PATCH] gnu: make-libiberty: use install-file.

Previous Next

To add a comment to this bug, you must first unarchive it, by sending
a message to control AT debbugs.gnu.org, with unarchive 40117 in the body.
You can then email your comments to 40117 AT debbugs.gnu.org in the normal way.

Toggle the display of automated, internal messages from the tracker.

Message #5 received at submit <at> debbugs.gnu.org (full text, mbox):

From: guy fleury iteriteka <gfleury <at> disroot.org>
To: guix-patches <at> gnu.org
Cc: guy fleury iteriteka <gfleury <at> disroot.org>
Subject: [PATCH] gnu: make-libiberty: use install-file.
Date: Wed, 18 Mar 2020 09:54:57 +0200

* gnu/packages/gcc.scm(make-libiberty): In phase install use
  install-file helper function to install file.
---
 gnu/packages/gcc.scm | 28 ++++++++++++----------------
 1 file changed, 12 insertions(+), 16 deletions(-)

diff --git a/gnu/packages/gcc.scm b/gnu/packages/gcc.scm
index 08afd80358..d170ae9175 100644
--- a/gnu/packages/gcc.scm
+++ b/gnu/packages/gcc.scm
@@ -8,6 +8,7 @@
 ;;; Copyright © 2018 Tobias Geerinckx-Rice <me <at> tobias.gr>
 ;;; Copyright © 2018 Marius Bakke <mbakke <at> fastmail.com>
 ;;; Copyright © 2020 Joseph LaFreniere <joseph <at> lafreniere.xyz>
+;;; Copyright © 2020 Guy Fleury Iteriteka <gfleury <at> disroot.org>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -578,22 +579,17 @@ using compilers other than GCC."
        #:phases
        (modify-phases %standard-phases
          (add-before 'configure 'chdir
-                     (lambda _
-                       (chdir "libiberty")
-                       #t))
-         (replace
-          'install
-          (lambda* (#:key outputs #:allow-other-keys)
-            (let* ((out     (assoc-ref outputs "out"))
-                   (lib     (string-append out "/lib/"))
-                   (include (string-append out "/include/")))
-              (mkdir-p lib)
-              (mkdir-p include)
-              (copy-file "libiberty.a"
-                         (string-append lib "libiberty.a"))
-              (copy-file "../include/libiberty.h"
-                         (string-append include "libiberty.h"))
-              #t))))))
+           (lambda _
+             (chdir "libiberty")
+             #t))
+         (replace 'install
+           (lambda* (#:key outputs #:allow-other-keys)
+             (let* ((out     (assoc-ref outputs "out"))
+                    (lib     (string-append out "/lib/"))
+                    (include (string-append out "/include/")))
+               (install-file "libiberty.a" lib)
+               (install-file "../include/libiberty.h" include))
+             #t)))))
     (inputs '())
     (outputs '("out"))
     (native-inputs '())
-- 
2.25.1

Message #10 received at 40117-done <at> debbugs.gnu.org (full text, mbox):

From: Marius Bakke <mbakke <at> fastmail.com>
To: guy fleury iteriteka <gfleury <at> disroot.org>, 40117-done <at> debbugs.gnu.org
Cc: guy fleury iteriteka <gfleury <at> disroot.org>
Subject: Re: [bug#40117] [PATCH] gnu: make-libiberty: use install-file.
Date: Fri, 20 Mar 2020 18:46:20 +0100

[Message part 1 (text/plain, inline)]

guy fleury iteriteka <gfleury <at> disroot.org> writes:

> * gnu/packages/gcc.scm(make-libiberty): In phase install use
>   install-file helper function to install file.

Applied, thank you!

[signature.asc (application/pgp-signature, inline)]

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.