diff options
| author | Jan Nieuwenhuizen <janneke@gnu.org> | 2016-09-15 22:50:42 +0200 |
|---|---|---|
| committer | Mathieu Lirzin <mthl@gnu.org> | 2016-09-23 16:16:29 +0200 |
| commit | fca42b010e56532fded536534ccb15b078a33e77 (patch) | |
| tree | 39cd0215f7b52c3ef97477fa8c15f9640d9585b9 /bin/evaluate.in | |
| parent | ff7c3a11f2b32336cb185479ae7ab0a864644715 (diff) | |
| download | cuirass-fca42b010e56532fded536534ccb15b078a33e77.tar cuirass-fca42b010e56532fded536534ccb15b078a33e77.tar.gz | |
cuirass: Optionally support using of substitutes.
* bin/cuirass.in (options): Add --use-substitutes.
(show-help): Idem.
(main): Set %use-substitutes?.
Signed-off-by: Mathieu Lirzin <mthl@gnu.org>
Diffstat (limited to 'bin/evaluate.in')
| -rw-r--r-- | bin/evaluate.in | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/bin/evaluate.in b/bin/evaluate.in index f0542ce..767e15e 100644 --- a/bin/evaluate.in +++ b/bin/evaluate.in @@ -44,8 +44,9 @@ exec ${GUILE:-@GUILE@} --no-auto-compile -e main -s "$0" "$@" (string-append cachedir "/" (assq-ref spec #:name)) (primitive-load (assq-ref spec #:file))))) (with-store store - ;; Make sure we don't resort to substitutes. - (set-build-options store #:use-substitutes? #f #:substitute-urls '()) + (unless (assoc-ref spec #:use-substitutes?) + ;; Make sure we don't resort to substitutes. + (set-build-options store #:use-substitutes? #f #:substitute-urls '())) ;; Grafts can trigger early builds. We do not want that to happen ;; during evaluation, so use a sledgehammer to catch such problems. (set! build-things @@ -54,7 +55,8 @@ exec ${GUILE:-@GUILE@} --no-auto-compile -e main -s "$0" "$@" stderr) (simple-format stderr "'build-things' arguments: ~S~%" args) (exit 1))) - (parameterize ((%package-database database)) + (parameterize ((%package-database database) + (%use-substitutes? (assoc-ref spec #:use-substitutes?))) ;; Call the entry point of FILE and print the resulting job sexp. (let* ((proc (module-ref %user-module 'hydra-jobs)) (thunks (proc store (assq-ref spec #:arguments))) |