summaryrefslogtreecommitdiff
path: root/guix/build
diff options
context:
space:
mode:
authorRicardo Wurmus <rekado@elephly.net>2018-11-13 10:46:00 +0100
committerRicardo Wurmus <rekado@elephly.net>2018-11-13 10:46:00 +0100
commit05a5721f06acc0ac85f970991307bc52fe91f6de (patch)
tree705f425a5080967949e5c4790ae068e65c34654c /guix/build
parent1767581fb50d2b97e12053aca087b6a490156f1e (diff)
build-system/dub: Let all phases return #T unconditionally.
* guix/build/dub-build-system.scm (configure, build, check): Return #T unconditionally; use INVOKE.
Diffstat (limited to 'guix/build')
-rw-r--r--guix/build/dub-build-system.scm33
1 files changed, 16 insertions, 17 deletions
diff --git a/guix/build/dub-build-system.scm b/guix/build/dub-build-system.scm
index 9a72e3d544..3ab50733de 100644
--- a/guix/build/dub-build-system.scm
+++ b/guix/build/dub-build-system.scm
@@ -67,7 +67,8 @@
(symlink (string-append path "/lib/dub/" d-basename)
(string-append vendor-dir "/" d-basename))))))))
inputs)
- (zero? (system* "dub" "add-path" vendor-dir))))
+ (invoke "dub" "add-path" vendor-dir)
+ #t))
(define (grep string file-name)
"Find the first occurrence of STRING in the file named FILE-NAME.
@@ -88,24 +89,22 @@
(define* (build #:key (dub-build-flags '())
#:allow-other-keys)
"Build a given DUB package."
- (if (or (grep* "sourceLibrary" "package.json")
- (grep* "sourceLibrary" "dub.sdl") ; note: format is different!
- (grep* "sourceLibrary" "dub.json"))
- #t
- (let ((status (zero? (apply system* `("dub" "build" ,@dub-build-flags)))))
- (substitute* ".dub/dub.json"
- (("\"lastUpgrade\": \"[^\"]*\"")
- "\"lastUpgrade\": \"1970-01-01T00:00:00.0000000\""))
- status)))
+ (unless (or (grep* "sourceLibrary" "package.json")
+ (grep* "sourceLibrary" "dub.sdl") ; note: format is different!
+ (grep* "sourceLibrary" "dub.json"))
+ (apply invoke `("dub" "build" ,@dub-build-flags))
+ (substitute* ".dub/dub.json"
+ (("\"lastUpgrade\": \"[^\"]*\"")
+ "\"lastUpgrade\": \"1970-01-01T00:00:00.0000000\"")))
+ #t)
(define* (check #:key tests? #:allow-other-keys)
- (if tests?
- (let ((status (zero? (system* "dub" "test"))))
- (substitute* ".dub/dub.json"
- (("\"lastUpgrade\": \"[^\"]*\"")
- "\"lastUpgrade\": \"1970-01-01T00:00:00.0000000\""))
- status)
- #t))
+ (when tests?
+ (invoke "dub" "test")
+ (substitute* ".dub/dub.json"
+ (("\"lastUpgrade\": \"[^\"]*\"")
+ "\"lastUpgrade\": \"1970-01-01T00:00:00.0000000\"")))
+ #t)
(define* (install #:key inputs outputs #:allow-other-keys)
"Install a given DUB package."