summaryrefslogtreecommitdiff
path: root/guix-build.in
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2012-10-18 22:24:49 +0200
committerLudovic Courtès <ludo@gnu.org>2012-10-18 22:32:21 +0200
commit1c3972daa823ae6f669f6668b236250eec6aa324 (patch)
treef824eede7cbb55aa0592c26e2642e3c3eceaa2ed /guix-build.in
parente3dadc6818db307abe581fb73daa5dafb3219393 (diff)
guix-build: Add `--local-build'.
* guix-build.in (show-help): Add `--local-build'. (%options): Likewise. (guix-build): Pass `set-build-options' the #:use-substitutes? argument accordingly.
Diffstat (limited to 'guix-build.in')
-rw-r--r--guix-build.in12
1 files changed, 9 insertions, 3 deletions
diff --git a/guix-build.in b/guix-build.in
index 058e13109a..e1607503a9 100644
--- a/guix-build.in
+++ b/guix-build.in
@@ -90,6 +90,8 @@ 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"))
+ (display (_ "
-c, --cores=N allow the use of up to N CPU cores for the build"))
(newline)
(display (_ "
@@ -131,9 +133,12 @@ Report bugs to: ~a.~%") "@PACKAGE_BUGREPORT@"))
(if c
(alist-cons 'cores c result)
(leave (_ "~a: not a number~%") arg)))))
- (option '(#\n "dry-run") #f #F
+ (option '(#\n "dry-run") #f #f
+ (lambda (opt name arg result)
+ (alist-cons 'dry-run? #t result)))
+ (option '("local-build") #f #f
(lambda (opt name arg result)
- (alist-cons 'dry-run? #t result)))))
+ (alist-cons 'local-build? #t result)))))
;;;
@@ -198,7 +203,8 @@ Report bugs to: ~a.~%") "@PACKAGE_BUGREPORT@"))
;; TODO: Add more options.
(set-build-options %store
#:keep-failed? (assoc-ref opts 'keep-failed?)
- #:build-cores (or (assoc-ref opts 'cores) 0))
+ #:build-cores (or (assoc-ref opts 'cores) 0)
+ #:use-substitutes? (not (assoc-ref opts 'local-build?)))
(if (assoc-ref opts 'derivations-only?)
(format #t "~{~a~%~}" drv)