From bdff90a16a99ad95bd76a14847e1507454990588 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Tue, 11 Feb 2014 23:18:41 +0100 Subject: [PATCH] guix build: Move 'set-build-options' call earlier. * guix/scripts/build.scm (guix-build): Move 'set-build-options' call before 'show-what-to-build'. --- guix/scripts/build.scm | 10 +++++----- 1 file 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 @@ (define (parse-options) (_ #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 @@ (define (parse-options) #: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)))