ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-07 15:36:20 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

scripts: Move 'set-build-options-from-command-line*' to (guix scripts build) module.

Browse source 
* guix/scripts/build.scm (set-build-options-from-command-line*): New
  procedure.
* guix/scripts/environment.scm (set-build-options-from-command-line*): Delete.
This commit is contained in:
David Thompson 2015-05-20 18:48:10 -04:00
parent 4d043ab628
commit 2d977638c9
2 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
guix/scripts/build.scm
View file

@ -37,6 +37,7 @@ (define-module (guix scripts build)
#:autoload (guix download) (download-to-store)
#:export (%standard-build-options
set-build-options-from-command-line
set-build-options-from-command-line*
show-build-options-help
guix-build))
@ -139,6 +140,9 @@ (define (set-build-options-from-command-line store opts)
#:print-build-trace (assoc-ref opts 'print-build-trace?)
#:verbosity (assoc-ref opts 'verbosity)))
(define set-build-options-from-command-line*
(store-lift set-build-options-from-command-line))
(define %standard-build-options
;; List of standard command-line options for tools that build something.
(list (option '(#\L "load-path") #t #f

4
guix/scripts/environment.scm
View file

@ -191,10 +191,6 @@ (define (transitive-inputs package)
(delete-duplicates
(append-map transitive-inputs packages)))
;; TODO: Deduplicate these.
(define set-build-options-from-command-line*
(store-lift set-build-options-from-command-line))
(define (build-inputs inputs opts)
"Build the packages in INPUTS using the build options in OPTS."
(let ((substitutes? (assoc-ref opts 'substitutes?))