From 11b7717deba42b1f8286158e1cf4b58dec533859 Mon Sep 17 00:00:00 2001 From: Mathieu Othacehe Date: Sun, 22 Jan 2017 15:40:57 +0100 Subject: services: cuirass: Add port to cuirass configuration * gnu/services/cuirass.scm (): Add port field. (cuirass-shepherd-service): Honor it. * doc/guix.texi (Continuous Integration): Document it. Signed-off-by: Mathieu Lirzin --- gnu/services/cuirass.scm | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'gnu/services/cuirass.scm') diff --git a/gnu/services/cuirass.scm b/gnu/services/cuirass.scm index c15a846bad..1194133f63 100644 --- a/gnu/services/cuirass.scm +++ b/gnu/services/cuirass.scm @@ -1,6 +1,7 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2016 Mathieu Lirzin ;;; Copyright © 2016, 2017 Ludovic Courtès +;;; Copyright © 2017 Mathieu Othacehe ;;; ;;; This file is part of GNU Guix. ;;; @@ -56,6 +57,8 @@ (define-record-type* (default 60)) (database cuirass-configuration-database ;string (file-name) (default "/var/run/cuirass/cuirass.db")) + (port cuirass-configuration-port ;integer (port) + (default 8080)) (specifications cuirass-configuration-specifications) ;gexp that evaluates to specification-alist (use-substitutes? cuirass-configuration-use-substitutes? ;boolean @@ -74,6 +77,7 @@ (define (cuirass-shepherd-service config) (group (cuirass-configuration-group config)) (interval (cuirass-configuration-interval config)) (database (cuirass-configuration-database config)) + (port (cuirass-configuration-port config)) (specs (cuirass-configuration-specifications config)) (use-substitutes? (cuirass-configuration-use-substitutes? config)) (one-shot? (cuirass-configuration-one-shot? config))) @@ -87,6 +91,7 @@ (define (cuirass-shepherd-service config) "--specifications" #$(scheme-file "cuirass-specs.scm" specs) "--database" #$database + "--port" #$(number->string port) "--interval" #$(number->string interval) #$@(if use-substitutes? '("--use-substitutes") '()) #$@(if one-shot? '("--one-shot") '())) -- cgit v1.2.3