summaryrefslogtreecommitdiff
path: root/guix/build
diff options
context:
space:
mode:
authorMaxim Cournoyer <maxim.cournoyer@gmail.com>2019-05-05 23:01:03 -0400
committerMaxim Cournoyer <maxim.cournoyer@gmail.com>2019-05-05 23:01:03 -0400
commita321312e3aec8f2884ab3f3cb35e2020195b5a08 (patch)
tree8e45b84de092209624b6f1178424b95264aeba15 /guix/build
parent2edec51c5eabeef6d7d9e1cbae2b2be379aaa6b8 (diff)
build: go-build-system: Follow-up to commit f42e4ebb56.
This follows commit f42e4ebb56, which made it so that the unpack phase return value could be left unspecified. * guix/build/go-build-system.scm (unpack): Ensure that the value returned upon a successful completion of the phase is #t.
Diffstat (limited to 'guix/build')
-rw-r--r--guix/build/go-build-system.scm10
1 files changed, 4 insertions, 6 deletions
diff --git a/guix/build/go-build-system.scm b/guix/build/go-build-system.scm
index 22427a80b3..858068ba98 100644
--- a/guix/build/go-build-system.scm
+++ b/guix/build/go-build-system.scm
@@ -174,8 +174,7 @@ unpacking."
(when (file-is-directory? top-level-file)
(copy-recursively top-level-file dest #:keep-mtime? #t)))
(_
- (copy-recursively "." dest #:keep-mtime? #t)))
- #t))
+ (copy-recursively "." dest #:keep-mtime? #t)))))
(delete-file-recursively scratch-dir)))
(when (string-null? import-path)
@@ -185,10 +184,9 @@ unpacking."
(let ((dest (string-append (getenv "GOPATH") "/src/" unpack-path)))
(mkdir-p dest)
(if (file-is-directory? source)
- (begin
- (copy-recursively source dest #:keep-mtime? #t)
- #t)
- (unpack-maybe-strip source dest))))
+ (copy-recursively source dest #:keep-mtime? #t)
+ (unpack-maybe-strip source dest)))
+ #t)
(define (go-package? name)
(string-prefix? "go-" name))