diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2014-02-11 23:18:41 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2014-02-12 00:03:20 +0100 |
| commit | bdff90a16a99ad95bd76a14847e1507454990588 (patch) | |
| tree | 3d2eaebeb3ae5c2147a38f940ed2fafe31693d4c | |
| parent | d66b704b51dc9a63eabbaee994f98101d8387ae6 (diff) | |
| download | patches-bdff90a16a99ad95bd76a14847e1507454990588.tar patches-bdff90a16a99ad95bd76a14847e1507454990588.tar.gz | |
guix build: Move 'set-build-options' call earlier.
* guix/scripts/build.scm (guix-build): Move 'set-build-options' call
before 'show-what-to-build'.
| -rw-r--r-- | guix/scripts/build.scm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/guix/scripts/build.scm b/guix/scripts/build.scm index 7cb3710853..b153da8493 100644 --- a/guix/scripts/build.scm +++ b/guix/scripts/build.scm @@ -279,11 +279,6 @@ build." (_ #f)) opts))) - (unless (assoc-ref opts 'log-file?) - (show-what-to-build store drv - #:use-substitutes? (assoc-ref opts 'substitutes?) - #:dry-run? (assoc-ref opts 'dry-run?))) - ;; TODO: Add more options. (set-build-options store #:keep-failed? (assoc-ref opts 'keep-failed?) @@ -294,6 +289,11 @@ build." #:max-silent-time (assoc-ref opts 'max-silent-time) #:verbosity (assoc-ref opts 'verbosity)) + (unless (assoc-ref opts 'log-file?) + (show-what-to-build store drv + #:use-substitutes? (assoc-ref opts 'substitutes?) + #:dry-run? (assoc-ref opts 'dry-run?))) + (cond ((assoc-ref opts 'log-file?) (for-each (lambda (file) (let ((log (log-file store file))) |