02/02: gnu: astyle: Install header file, too.

[guix-commits]

htgoebel pushed a commit to branch staging
in repository guix.

commit 0c6ab52243353e3417e5a9733bb089e4771cc86e
Author: Hartmut Goebel <address@hidden>
Date:   Wed Nov 6 22:50:31 2019 +0100

    gnu: astyle: Install header file, too.
    
    * gnu/packages/code.scm(astyle)[arguments]<phases>{install-libs}: Also
      install header file.
---
 gnu/packages/code.scm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/code.scm b/gnu/packages/code.scm
index 7656ee8..021181b 100644
--- a/gnu/packages/code.scm
+++ b/gnu/packages/code.scm
@@ -607,8 +607,9 @@ Objective@tie{}C, D, Java, Pawn, and Vala).  Features:
            (lambda _ (chdir "build/gcc") #t))
          (add-after 'install 'install-libs
            (lambda* (#:key outputs #:allow-other-keys)
-             ;; Libraries are not installed by default
+             ;; Libraries and includes are not installed by default
              (let* ((output (assoc-ref outputs "out"))
+                    (incdir (string-append output "/include"))
                     (libdir (string-append output "/lib")))
                (define (make-so-link sofile strip-pattern)
                  (symlink
@@ -616,6 +617,9 @@ Objective@tie{}C, D, Java, Pawn, and Vala).  Features:
                   (regexp-substitute #f
                                      (string-match strip-pattern sofile)
                                      'pre)))
+               (mkdir-p incdir)
+               (copy-file "../../src/astyle.h"
+                          (string-append incdir "/astyle.h"))
                (mkdir-p libdir)
                (for-each (lambda (l)
                            (copy-file