01/02: gnu: guile-bytestructures: Install 'README.md'.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 7ed9c3124d9fb07e0d389250955cada1e54b03b3
Author: Ludovic Courtès <address@hidden>
AuthorDate: Mon Jan 13 10:00:18 2020 +0100

    gnu: guile-bytestructures: Install 'README.md'.
    
    * gnu/packages/guile.scm (guile-bytestructures)[arguments]: Add
    'install-doc' phase.
---
 gnu/packages/guile.scm | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/guile.scm b/gnu/packages/guile.scm
index bcb8ff1..4b88c41 100644
--- a/gnu/packages/guile.scm
+++ b/gnu/packages/guile.scm
@@ -595,8 +595,16 @@ Guile's foreign function interface.")
                 "0q0habjiy3h9cigb7q1br9kz6z212dn2ab31f6dgd3rrmsfn5rvb"))))
     (build-system gnu-build-system)
     (arguments
-     '(#:make-flags
-       '("GUILE_AUTO_COMPILE=0"))) ;to prevent guild warnings
+     `(#:make-flags '("GUILE_AUTO_COMPILE=0")     ;to prevent guild warnings
+
+       #:phases (modify-phases %standard-phases
+                  (add-after 'install 'install-doc
+                    (lambda* (#:key outputs #:allow-other-keys)
+                      (let* ((out (assoc-ref outputs "out"))
+                             (package ,(package-full-name this-package "-"))
+                             (doc (string-append out "/share/doc/" package)))
+                        (install-file "README.md" doc)
+                        #t))))))
     (native-inputs
      `(("autoconf" ,autoconf)
        ("automake" ,automake)