01/02: gnu: kurly: Install some documentation.

[Leo Famulari]

lfam pushed a commit to branch master
in repository guix.

commit 4880fddd5c6b3a0bb7c7bf316b67d902fae6522f
Author: Leo Famulari <address@hidden>
Date:   Mon Jan 8 20:30:10 2018 -0500

    gnu: kurly: Install some documentation.
    
    * gnu/packages/curl.scm (kurly)[arguments]: Install the README in an
    'install-readme' phase and don't install the source code.
---
 gnu/packages/curl.scm | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/curl.scm b/gnu/packages/curl.scm
index 5f61800..cccbbc8 100644
--- a/gnu/packages/curl.scm
+++ b/gnu/packages/curl.scm
@@ -153,7 +153,17 @@ tunneling, and so on.")
                 "1q192f457sjypgvwq7grrf8gq8w272p3zf1d5ppc20mriqm0mbc3"))))
     (build-system go-build-system)
     (arguments
-     '(#:import-path "github.com/davidjpeacock/kurly"))
+     `(#:import-path "github.com/davidjpeacock/kurly"
+       #:install-source? #f
+       #:phases
+       (modify-phases %standard-phases
+         (add-after 'install 'install-readme
+           (lambda* (#:key outputs import-path #:allow-other-keys)
+             (let* ((out (assoc-ref outputs "out"))
+                    (readme (string-append "src/" import-path "/README.md"))
+                    (misc (string-append out "/share/kurly/misc/")))
+               (install-file readme misc)
+               #t))))))
     (inputs
      `(("go-github-com-alsm-ioprogress" ,go-github-com-alsm-ioprogress)
        ("go-github-com-aki237-nscjar" ,go-github-com-aki237-nscjar)