~ruther/guix-local

c800fd564b9dc37f1fb95fa5f49230b4865f0541 — Mathieu Othacehe 8 years ago 3c14378
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.
2 files changed, 8 insertions(+), 0 deletions(-)

M doc/guix.texi
M gnu/services/cuirass.scm
M doc/guix.texi => doc/guix.texi +4 -0
@@ 14773,6 14773,10 @@ from source.
@item @code{one-shot?} (default: @code{#f})
Only evaluate specifications and build derivations once.

@item @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.

M gnu/services/cuirass.scm => gnu/services/cuirass.scm +4 -0
@@ 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