aboutsummaryrefslogtreecommitdiff
path: root/guix-build.in
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2012-10-24 15:01:16 +0200
committerLudovic Courtès <ludo@gnu.org>2012-10-24 15:01:16 +0200
commit692c6c1576a1cf6d9d424a64e78aceca2c057163 (patch)
tree94e064b661519d6102e2fce1d724b28ccd7912ac /guix-build.in
parent1430808cae44025b785914809c883ac8f8860d8d (diff)
downloadguix-692c6c1576a1cf6d9d424a64e78aceca2c057163.tar
guix-692c6c1576a1cf6d9d424a64e78aceca2c057163.tar.gz
guix-build: Change `--local-build' to `--no-substitutes'.
* guix-build.in (%default-options): Add `substitutes?'. (show-help): Change `--local-build' to `--no-substitutes'. (guix-build): Adjust accordingly.
Diffstat (limited to 'guix-build.in')
-rw-r--r--guix-build.in12
1 files changed, 7 insertions, 5 deletions
diff --git a/guix-build.in b/guix-build.in
index 6f2fb05d35..9bc0f684d3 100644
--- a/guix-build.in
+++ b/guix-build.in
@@ -66,7 +66,8 @@ When SOURCE? is true, return the derivations of the package sources."
(define %default-options
;; Alist of default option values.
- `((system . ,(%current-system))))
+ `((system . ,(%current-system))
+ (substitutes? . #t)))
(define-syntax-rule (leave fmt args ...)
"Format FMT and ARGS to the error port and exit."
@@ -93,7 +94,7 @@ Build the given PACKAGE-OR-DERIVATION and return their output paths.\n"))
(display (_ "
-n, --dry-run do not build the derivations"))
(display (_ "
- --local-build build locally instead of resorting to substitutes"))
+ --no-substitutes build instead of resorting to pre-built substitutes"))
(display (_ "
-c, --cores=N allow the use of up to N CPU cores for the build"))
(newline)
@@ -143,9 +144,10 @@ Report bugs to: ~a.~%") "@PACKAGE_BUGREPORT@"))
(option '(#\n "dry-run") #f #f
(lambda (opt name arg result)
(alist-cons 'dry-run? #t result)))
- (option '("local-build") #f #f
+ (option '("no-substitutes") #f #f
(lambda (opt name arg result)
- (alist-cons 'local-build? #t result)))))
+ (alist-cons 'substitutes? #f
+ (alist-delete 'substitutes? result))))))
;;;
@@ -213,7 +215,7 @@ Report bugs to: ~a.~%") "@PACKAGE_BUGREPORT@"))
(set-build-options %store
#:keep-failed? (assoc-ref opts 'keep-failed?)
#:build-cores (or (assoc-ref opts 'cores) 0)
- #:use-substitutes? (not (assoc-ref opts 'local-build?)))
+ #:use-substitutes? (assoc-ref opts 'substitutes?))
(if (assoc-ref opts 'derivations-only?)
(format #t "~{~a~%~}" drv)