[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/01: services: cuirass: Add port to cuirass configuration
From: |
Mathieu Lirzin |
Subject: |
01/01: services: cuirass: Add port to cuirass configuration |
Date: |
Sun, 22 Jan 2017 22:52:52 +0000 (UTC) |
mthl pushed a commit to branch master
in repository guix.
commit 11b7717deba42b1f8286158e1cf4b58dec533859
Author: Mathieu Othacehe <address@hidden>
Date: Sun Jan 22 15:40:57 2017 +0100
services: cuirass: Add port to cuirass configuration
* gnu/services/cuirass.scm (<cuirass-configuration>): Add port field.
(cuirass-shepherd-service): Honor it.
* doc/guix.texi (Continuous Integration): Document it.
Signed-off-by: Mathieu Lirzin <address@hidden>
---
doc/guix.texi | 6 +++++-
gnu/services/cuirass.scm | 5 +++++
2 files changed, 10 insertions(+), 1 deletion(-)
diff --git a/doc/guix.texi b/doc/guix.texi
index 1f0bd75..18ab662 100644
--- a/doc/guix.texi
+++ b/doc/guix.texi
@@ -30,7 +30,8 @@ Copyright @copyright{} 2016 address@hidden
Copyright @copyright{} 2016 Jan address@hidden
Copyright @copyright{} 2016 Julien address@hidden
Copyright @copyright{} 2016 Alex ter address@hidden
-Copyright @copyright{} 2017 Clément Lassieur
+Copyright @copyright{} 2017 Clément address@hidden
+Copyright @copyright{} 2017 Mathieu Othacehe
Permission is granted to copy, distribute and/or modify this document
under the terms of the GNU Free Documentation License, Version 1.3 or
@@ -13032,6 +13033,9 @@ Cuirass jobs.
Location of sqlite database which contains the build results and previously
added specifications.
address@hidden @code{port} (default: @code{8080})
+Port number used by the HTTP server.
+
@item @code{specifications} (default: @code{#~'()})
A gexp (@pxref{G-Expressions}) that evaluates to a list of specifications,
where a specification is an association list
diff --git a/gnu/services/cuirass.scm b/gnu/services/cuirass.scm
index c15a846..1194133 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 <address@hidden>
;;; Copyright © 2016, 2017 Ludovic Courtès <address@hidden>
+;;; Copyright © 2017 Mathieu Othacehe <address@hidden>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -56,6 +57,8 @@
(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 @@
(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 @@
"--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") '()))