Browse Source

guix build: Parameterize '%graft?' upfront.

* guix/scripts/build.scm (guix-build): Add 'graft?' variable and
parameterize %GRAFT?.
version-1.1.0
Ludovic Courtès 2 years ago
parent
commit
f42f39ad68
No known key found for this signature in database GPG Key ID: 90B11993D9AEBB5
  1. 10
      guix/scripts/build.scm

10
guix/scripts/build.scm

@ -943,13 +943,21 @@ needed."
(parse-command-line args %options
(list %default-options)))
(define graft?
(assoc-ref opts 'graft?))
(with-error-handling
(with-status-verbosity (assoc-ref opts 'verbosity)
(with-store store
;; Set the build options before we do anything else.
(set-build-options-from-command-line store opts)
(parameterize ((current-terminal-columns (terminal-columns)))
(parameterize ((current-terminal-columns (terminal-columns))
;; Set grafting upfront in case the user's input
;; depends on it (e.g., a manifest or code snippet that
;; calls 'gexp->derivation').
(%graft? graft?))
(let* ((mode (assoc-ref opts 'build-mode))
(drv (options->derivations store opts))
(urls (map (cut string-append <> "/log")

Loading…
Cancel
Save