diff options
author | Mathieu Othacehe <mathieu.othacehe@parrot.com> | 2017-07-11 11:38:18 +0200 |
---|---|---|
committer | Mathieu Othacehe <m.othacehe@gmail.com> | 2017-07-12 16:28:41 +0200 |
commit | efcef52883965287433ba62fa5be309bd0aede1d (patch) | |
tree | d19dc6f7422b3ae70700de1fe353312130cc2ed3 /src | |
parent | 707b053024ec9d50699312f09f69743a9559f5e5 (diff) | |
download | cuirass-efcef52883965287433ba62fa5be309bd0aede1d.tar cuirass-efcef52883965287433ba62fa5be309bd0aede1d.tar.gz |
cuirass: Add fallback parameter.
* src/cuirass/base.scm (%fallback?): New exported parameter.
(process-specs)[set-build-options]: Pass fallback parameter.
* bin/cuirass.in (%options): Add fallback.
(main): Set %fallback? parameter.
(show-help): Update.
Diffstat (limited to 'src')
-rw-r--r-- | src/cuirass/base.scm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/src/cuirass/base.scm b/src/cuirass/base.scm index 7b73245..326a530 100644 --- a/src/cuirass/base.scm +++ b/src/cuirass/base.scm @@ -43,7 +43,8 @@ ;; Parameters. %guix-package-path %package-cachedir - %use-substitutes?)) + %use-substitutes? + %fallback?)) (cond-expand (guile-2.2 @@ -56,6 +57,10 @@ ;; Define whether to use substitutes (make-parameter #f)) +(define %fallback? + ;; Define whether to fall back to building when the substituter fails. + (make-parameter #f)) + (define %package-cachedir ;; Define to location of cache directory of this package. (make-parameter (or (getenv "CUIRASS_CACHEDIR") @@ -204,6 +209,7 @@ directory and the sha1 of the top level commit in this directory." ;; failure. (set-build-options store #:use-substitutes? (%use-substitutes?) + #:fallback? (%fallback?) #:keep-going? #t) (let* ((spec* (acons #:current-commit commit spec)) |