all messages for Guix-related lists mirrored at yhetil.org
 help / color / mirror / code / Atom feed
* [bug#27664] [PATCH] cuirass: Add fallback parameter.
@ 2017-07-12  8:24 Mathieu Othacehe
  2017-07-12  8:39 ` Danny Milosavljevic
  0 siblings, 1 reply; 4+ messages in thread
From: Mathieu Othacehe @ 2017-07-12  8:24 UTC (permalink / raw)
  To: 27664; +Cc: Mathieu Othacehe

From: Mathieu Othacehe <mathieu.othacehe@parrot.com>

* 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.
---
 bin/cuirass.in       | 5 ++++-
 src/cuirass/base.scm | 8 +++++++-
 2 files changed, 11 insertions(+), 2 deletions(-)

diff --git a/bin/cuirass.in b/bin/cuirass.in
index 61b9dd8..18edf1e 100644
--- a/bin/cuirass.in
+++ b/bin/cuirass.in
@@ -35,6 +35,7 @@ exec ${GUILE:-@GUILE@} --no-auto-compile -e main -s "$0" "$@"
 
       --one-shot            Evaluate and build jobs only once
       --cache-directory=DIR Use DIR for storing repository data
+      --fallback            Fall back to building when the substituter fails.
   -L  --load-path=DIR       Prepend DIR to Guix package module search path.
   -S  --specifications=SPECFILE
                             Add specifications from SPECFILE to database.
@@ -56,6 +57,7 @@ exec ${GUILE:-@GUILE@} --no-auto-compile -e main -s "$0" "$@"
     (port           (single-char #\p) (value #t))
     (interval       (single-char #\I) (value #t))
     (use-substitutes                  (value #f))
+    (fallback                         (value #f))
     (version        (single-char #\V) (value #f))
     (help           (single-char #\h) (value #f))))
 
@@ -73,7 +75,8 @@ exec ${GUILE:-@GUILE@} --no-auto-compile -e main -s "$0" "$@"
           (option-ref opts 'cache-directory (%package-cachedir)))
          (%guix-package-path
           (option-ref opts 'load-path (%guix-package-path)))
-         (%use-substitutes? (option-ref opts 'use-substitutes #f)))
+         (%use-substitutes? (option-ref opts 'use-substitutes #f))
+         (%fallback? (option-ref opts 'fallback #f)))
       (cond
        ((option-ref opts 'help #f)
         (show-help)
diff --git a/src/cuirass/base.scm b/src/cuirass/base.scm
index d0e77d9..b84cab7 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")
@@ -210,6 +215,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))
-- 
2.13.1

^ permalink raw reply related	[flat|nested] 4+ messages in thread

* [bug#27664] [PATCH] cuirass: Add fallback parameter.
  2017-07-12  8:24 [bug#27664] [PATCH] cuirass: Add fallback parameter Mathieu Othacehe
@ 2017-07-12  8:39 ` Danny Milosavljevic
  2017-07-12 12:26   ` Ludovic Courtès
  0 siblings, 1 reply; 4+ messages in thread
From: Danny Milosavljevic @ 2017-07-12  8:39 UTC (permalink / raw)
  To: Mathieu Othacehe; +Cc: 27664, Mathieu Othacehe

LGTM!

^ permalink raw reply	[flat|nested] 4+ messages in thread

* [bug#27664] [PATCH] cuirass: Add fallback parameter.
  2017-07-12  8:39 ` Danny Milosavljevic
@ 2017-07-12 12:26   ` Ludovic Courtès
  2017-07-12 17:05     ` bug#27664: " Mathieu Othacehe
  0 siblings, 1 reply; 4+ messages in thread
From: Ludovic Courtès @ 2017-07-12 12:26 UTC (permalink / raw)
  To: Danny Milosavljevic; +Cc: 27664, Mathieu Othacehe

Danny Milosavljevic <dannym@scratchpost.org> skribis:

> LGTM!

+1!

^ permalink raw reply	[flat|nested] 4+ messages in thread

* bug#27664: [PATCH] cuirass: Add fallback parameter.
  2017-07-12 12:26   ` Ludovic Courtès
@ 2017-07-12 17:05     ` Mathieu Othacehe
  0 siblings, 0 replies; 4+ messages in thread
From: Mathieu Othacehe @ 2017-07-12 17:05 UTC (permalink / raw)
  To: Ludovic Courtès; +Cc: 27664-done


Pushed thanks !

^ permalink raw reply	[flat|nested] 4+ messages in thread

end of thread, other threads:[~2017-07-12 17:07 UTC | newest]

Thread overview: 4+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2017-07-12  8:24 [bug#27664] [PATCH] cuirass: Add fallback parameter Mathieu Othacehe
2017-07-12  8:39 ` Danny Milosavljevic
2017-07-12 12:26   ` Ludovic Courtès
2017-07-12 17:05     ` bug#27664: " Mathieu Othacehe

Code repositories for project(s) associated with this external index

	https://git.savannah.gnu.org/cgit/guix.git

This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.