summaryrefslogtreecommitdiff
path: root/guix/build
diff options
context:
space:
mode:
authorLeo Famulari <leo@famulari.name>2017-10-24 12:17:32 -0400
committerLeo Famulari <leo@famulari.name>2017-10-24 13:10:34 -0400
commitc10851cf912d60d18d79badbbefe85c2d21081f9 (patch)
tree032e5419695e03a5df096122245fd567e7d15e0d /guix/build
parent1c37f839fb58283c99bf46be860d66e579d6f555 (diff)
build-system/go: Parameterize installing the source code.
* guix/build-system/go.scm (go-build): Add install-source? key. * guix/build/go-build-system.scm (install-source): Check if install-source? is true.
Diffstat (limited to 'guix/build')
-rw-r--r--guix/build/go-build-system.scm7
1 files changed, 4 insertions, 3 deletions
diff --git a/guix/build/go-build-system.scm b/guix/build/go-build-system.scm
index d8ccb98138..72af6ce7b6 100644
--- a/guix/build/go-build-system.scm
+++ b/guix/build/go-build-system.scm
@@ -126,13 +126,14 @@ unset. When SOURCE is a directory, copy it instead of unpacking."
(zero? (system* "unzip" "-d" dest source))
(zero? (system* "tar" "-C" dest "-xvf" source))))))
-(define* (install-source #:key outputs #:allow-other-keys)
+(define* (install-source #:key install-source? outputs #:allow-other-keys)
"Install the source code to the output directory."
(let* ((out (assoc-ref outputs "out"))
(source "src")
(dest (string-append out "/" source)))
- (copy-recursively source dest #:keep-mtime? #t)
- #t))
+ (if install-source?
+ (copy-recursively source dest #:keep-mtime? #t)
+ #t)))
(define (go-package? name)
(string-prefix? "go-" name))