mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-25 05:48:07 -05:00
services: cuirass: Add host option.
* gnu/services/cuirass.scm (<cuirass-configuration>): Add host option. (cuirass-shepherd-service): Pass host option. * doc/guix.texi (Continuous Integration): Document it.
This commit is contained in:
parent
a928ed4740
commit
326f6ef10f
2 changed files with 9 additions and 0 deletions
|
@ -15414,6 +15414,10 @@ added specifications.
|
|||
@item @code{port} (default: @code{8081})
|
||||
Port number used by the HTTP server.
|
||||
|
||||
@item --listen=@var{host}
|
||||
Listen on the network interface for @var{host}. The default is to
|
||||
accept connections from localhost.
|
||||
|
||||
@item @code{specifications} (default: @code{#~'()})
|
||||
A gexp (@pxref{G-Expressions}) that evaluates to a list of specifications,
|
||||
where a specification is an association list
|
||||
|
|
|
@ -2,6 +2,7 @@
|
|||
;;; Copyright © 2016 Mathieu Lirzin <mthl@gnu.org>
|
||||
;;; Copyright © 2016, 2017 Ludovic Courtès <ludo@gnu.org>
|
||||
;;; Copyright © 2017 Mathieu Othacehe <m.othacehe@gmail.com>
|
||||
;;; Copyright © 2017 Jan Nieuwenhuizen <janneke@gnu.org>
|
||||
;;;
|
||||
;;; This file is part of GNU Guix.
|
||||
;;;
|
||||
|
@ -61,6 +62,8 @@ (define-record-type* <cuirass-configuration>
|
|||
(default "/var/run/cuirass/cuirass.db"))
|
||||
(port cuirass-configuration-port ;integer (port)
|
||||
(default 8081))
|
||||
(host cuirass-configuration-host ;string
|
||||
(default "localhost"))
|
||||
(specifications cuirass-configuration-specifications)
|
||||
;gexp that evaluates to specification-alist
|
||||
(use-substitutes? cuirass-configuration-use-substitutes? ;boolean
|
||||
|
@ -84,6 +87,7 @@ (define (cuirass-shepherd-service config)
|
|||
(interval (cuirass-configuration-interval config))
|
||||
(database (cuirass-configuration-database config))
|
||||
(port (cuirass-configuration-port config))
|
||||
(host (cuirass-configuration-host config))
|
||||
(specs (cuirass-configuration-specifications config))
|
||||
(use-substitutes? (cuirass-configuration-use-substitutes? config))
|
||||
(one-shot? (cuirass-configuration-one-shot? config))
|
||||
|
@ -100,6 +104,7 @@ (define (cuirass-shepherd-service config)
|
|||
#$(scheme-file "cuirass-specs.scm" specs)
|
||||
"--database" #$database
|
||||
"--port" #$(number->string port)
|
||||
"--listen" #$host
|
||||
"--interval" #$(number->string interval)
|
||||
#$@(if use-substitutes? '("--use-substitutes") '())
|
||||
#$@(if one-shot? '("--one-shot") '())
|
||||
|
|
Loading…
Reference in a new issue