diff options
| author | Maxim Cournoyer <maxim.cournoyer@gmail.com> | 2019-05-05 23:01:03 -0400 |
|---|---|---|
| committer | Maxim Cournoyer <maxim.cournoyer@gmail.com> | 2019-05-05 23:01:03 -0400 |
| commit | a321312e3aec8f2884ab3f3cb35e2020195b5a08 (patch) | |
| tree | 8e45b84de092209624b6f1178424b95264aeba15 | |
| parent | 2edec51c5eabeef6d7d9e1cbae2b2be379aaa6b8 (diff) | |
| download | guix-a321312e3aec8f2884ab3f3cb35e2020195b5a08.tar.gz | |
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.
| -rw-r--r-- | guix/build/go-build-system.scm | 10 |
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)) |