[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[PATCH] services: cuirass: Add port to cuirass configuration
From: |
Mathieu Othacehe |
Subject: |
[PATCH] services: cuirass: Add port to cuirass configuration |
Date: |
Sun, 22 Jan 2017 15:19:22 +0100 |
* gnu/services/cuirass.scm (<cuirass-configuration>): Add port field.
(cuirass-shepherd-service): Honor it.
---
gnu/services/cuirass.scm | 4 ++++
1 file changed, 4 insertions(+)
diff --git a/gnu/services/cuirass.scm b/gnu/services/cuirass.scm
index c15a846ba..85f2a22da 100644
--- a/gnu/services/cuirass.scm
+++ b/gnu/services/cuirass.scm
@@ -56,6 +56,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 +76,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 +90,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") '()))
--
2.11.0
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [PATCH] services: cuirass: Add port to cuirass configuration,
Mathieu Othacehe <=