01/01: services: cuirass: Add fallback parameter.

[Mathieu Othacehe]

mothacehe pushed a commit to branch master
in repository guix.

commit c800fd564b9dc37f1fb95fa5f49230b4865f0541
Author: Mathieu Othacehe <address@hidden>
Date:   Thu Jul 13 11:34:26 2017 +0200

    services: cuirass: Add fallback parameter.
    
    * gnu/services/cuirass.scm (<cuirass-configuration>)[fallback?]: New field.
    (cuirass-shepherd-service): Take it into account.
    * doc/guix.texi (Continuous Integration): Document it.
---
 doc/guix.texi            | 4 ++++
 gnu/services/cuirass.scm | 4 ++++
 2 files changed, 8 insertions(+)

diff --git a/doc/guix.texi b/doc/guix.texi
index 875c1ff..dfa1e22 100644
--- a/doc/guix.texi
+++ b/doc/guix.texi
@@ -14773,6 +14773,10 @@ from source.
 @item @code{one-shot?} (default: @code{#f})
 Only evaluate specifications and build derivations once.
 
address@hidden @code{fallback?} (default: @code{#f})
+When substituting a pre-built binary fails, fall back to building
+packages locally.
+
 @item @code{load-path} (default: @code{'()})
 This allows users to define their own packages and make them visible to
 cuirass as in @command{guix build} command.
diff --git a/gnu/services/cuirass.scm b/gnu/services/cuirass.scm
index 88a9a86..d27a2bb 100644
--- a/gnu/services/cuirass.scm
+++ b/gnu/services/cuirass.scm
@@ -66,6 +66,8 @@
                     (default #f))
   (one-shot?        cuirass-configuration-one-shot? ;boolean
                     (default #f))
+  (fallback?        cuirass-configuration-fallback? ;boolean
+                    (default #f))
   (load-path        cuirass-configuration-load-path
                     (default '())))
 
@@ -84,6 +86,7 @@
          (specs            (cuirass-configuration-specifications config))
          (use-substitutes? (cuirass-configuration-use-substitutes? config))
          (one-shot?        (cuirass-configuration-one-shot? config))
+         (fallback?        (cuirass-configuration-fallback? config))
          (load-path        (cuirass-configuration-load-path config)))
      (list (shepherd-service
             (documentation "Run Cuirass.")
@@ -99,6 +102,7 @@
                             "--interval" #$(number->string interval)
                             #$@(if use-substitutes? '("--use-substitutes") '())
                             #$@(if one-shot? '("--one-shot") '())
+                            #$@(if fallback? '("--fallback") '())
                             #$@(if (null? load-path) '()
                                  `("--load-path" ,(string-join load-path 
":"))))
                       #:user #$user