mirror of
https://git.savannah.gnu.org/git/guix.git
synced 2026-05-28 03:51:53 +02:00
environment: Set build options early on.
This fixes a bug whereby some options, such as #:substitute-urls, would be passed to the daemon too late to have an effect. * guix/scripts/environment.scm (build-inputs): Remove call to 'set-build-options-from-command-line*'. (guix-environment): Add call to 'set-build-options-from-command-line' as early as possible.
This commit is contained in:
@@ -294,7 +294,6 @@ OUTPUT) tuples, using the build options in OPTS."
|
|||||||
(if dry-run?
|
(if dry-run?
|
||||||
(return #f)
|
(return #f)
|
||||||
(mbegin %store-monad
|
(mbegin %store-monad
|
||||||
(set-build-options-from-command-line* opts)
|
|
||||||
(built-derivations derivations)
|
(built-derivations derivations)
|
||||||
(return derivations))))))))
|
(return derivations))))))))
|
||||||
|
|
||||||
@@ -500,6 +499,7 @@ message if any test fails."
|
|||||||
(when container? (assert-container-features))
|
(when container? (assert-container-features))
|
||||||
|
|
||||||
(with-store store
|
(with-store store
|
||||||
|
(set-build-options-from-command-line store opts)
|
||||||
(run-with-store store
|
(run-with-store store
|
||||||
(mlet* %store-monad ((inputs (lower-inputs
|
(mlet* %store-monad ((inputs (lower-inputs
|
||||||
(map (match-lambda
|
(map (match-lambda
|
||||||
|
|||||||
Reference in New Issue
Block a user