~ruther/guix-local

bdff90a16a99ad95bd76a14847e1507454990588 — Ludovic Courtès 12 years ago d66b704
guix build: Move 'set-build-options' call earlier.

* guix/scripts/build.scm (guix-build): Move 'set-build-options' call
  before 'show-what-to-build'.
1 files changed, 5 insertions(+), 5 deletions(-)

M guix/scripts/build.scm
M guix/scripts/build.scm => guix/scripts/build.scm +5 -5
@@ 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)))