pull: Honor '--no-grafts'.
* guix/scripts/pull.scm (guix-pull): Parameterize %GRAFT? as a function of OPTS.
This commit is contained in:
parent
3085b50200
commit
c53fc48144
@ -27,6 +27,7 @@
|
||||
#:use-module (guix derivations)
|
||||
#:use-module (guix download)
|
||||
#:use-module (guix gexp)
|
||||
#:use-module (guix grafts)
|
||||
#:use-module (guix monads)
|
||||
#:use-module (guix scripts build)
|
||||
#:use-module ((guix build utils)
|
||||
@ -256,6 +257,7 @@ certificates~%"))
|
||||
|
||||
(unless (assoc-ref opts 'dry-run?) ;XXX: not very useful
|
||||
(with-store store
|
||||
(parameterize ((%graft? (assoc-ref opts 'graft?)))
|
||||
(set-build-options-from-command-line store opts)
|
||||
|
||||
;; For reproducibility, always refer to the LE certificates when we
|
||||
@ -276,13 +278,15 @@ certificates~%"))
|
||||
(G_ "Building from Git commit ~a...~%")
|
||||
commit)
|
||||
(parameterize ((%guile-for-build
|
||||
(package-derivation store
|
||||
(package-derivation
|
||||
store
|
||||
(if (assoc-ref opts 'bootstrap?)
|
||||
%bootstrap-guile
|
||||
(canonical-package guile-2.0)))))
|
||||
(run-with-store store
|
||||
(build-and-install checkout (config-directory)
|
||||
#:commit commit
|
||||
#:verbose? (assoc-ref opts 'verbose?)))))))))))
|
||||
#:verbose?
|
||||
(assoc-ref opts 'verbose?))))))))))))
|
||||
|
||||
;;; pull.scm ends here
|
||||
|
Loading…
Reference in New Issue
Block a user