ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-16 19:57:39 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

guix build: Parameterize '%graft?' upfront.

Browse source 
* guix/scripts/build.scm (guix-build): Add 'graft?' variable and
parameterize %GRAFT?.
This commit is contained in:
Ludovic Courtès 2020-03-05 15:52:37 +01:00
parent c5a3d8f646
commit f42f39ad68
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 9 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
guix/scripts/build.scm
View file

@ -943,13 +943,21 @@ (define opts
(parse-command-line args %options (parse-command-line args %options
(list %default-options))) (list %default-options)))
(define graft?
(assoc-ref opts 'graft?))
(with-error-handling (with-error-handling
(with-status-verbosity (assoc-ref opts 'verbosity) (with-status-verbosity (assoc-ref opts 'verbosity)
(with-store store (with-store store
;; Set the build options before we do anything else. ;; Set the build options before we do anything else.
(set-build-options-from-command-line store opts) (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)) (let* ((mode (assoc-ref opts 'build-mode))
(drv (options->derivations store opts)) (drv (options->derivations store opts))
(urls (map (cut string-append <> "/log") (urls (map (cut string-append <> "/log")