summaryrefslogtreecommitdiff
path: root/gnu
diff options
context:
space:
mode:
Diffstat (limited to 'gnu')
-rw-r--r--gnu/services/cuirass.scm7
1 files changed, 5 insertions, 2 deletions
diff --git a/gnu/services/cuirass.scm b/gnu/services/cuirass.scm
index 138a5cf67c4..7bd43cd427e 100644
--- a/gnu/services/cuirass.scm
+++ b/gnu/services/cuirass.scm
@@ -3,7 +3,7 @@
3;;; Copyright © 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org> 3;;; Copyright © 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org>
4;;; Copyright © 2017 Mathieu Othacehe <m.othacehe@gmail.com> 4;;; Copyright © 2017 Mathieu Othacehe <m.othacehe@gmail.com>
5;;; Copyright © 2017 Jan Nieuwenhuizen <janneke@gnu.org> 5;;; Copyright © 2017 Jan Nieuwenhuizen <janneke@gnu.org>
6;;; Copyright © 2018 Ricardo Wurmus <rekado@elephly.net> 6;;; Copyright © 2018, 2019 Ricardo Wurmus <rekado@elephly.net>
7;;; Copyright © 2018 Clément Lassieur <clement@lassieur.org> 7;;; Copyright © 2018 Clément Lassieur <clement@lassieur.org>
8;;; 8;;;
9;;; This file is part of GNU Guix. 9;;; This file is part of GNU Guix.
@@ -52,6 +52,8 @@
52 (default cuirass)) 52 (default cuirass))
53 (log-file cuirass-configuration-log-file ;string 53 (log-file cuirass-configuration-log-file ;string
54 (default "/var/log/cuirass.log")) 54 (default "/var/log/cuirass.log"))
55 (web-log-file cuirass-configuration-web-log-file ;string
56 (default "/var/log/cuirass-web.log"))
55 (cache-directory cuirass-configuration-cache-directory ;string (dir-name) 57 (cache-directory cuirass-configuration-cache-directory ;string (dir-name)
56 (default "/var/cache/cuirass")) 58 (default "/var/cache/cuirass"))
57 (ttl cuirass-configuration-ttl ;integer 59 (ttl cuirass-configuration-ttl ;integer
@@ -83,6 +85,7 @@
83 (cuirass-configuration? config) 85 (cuirass-configuration? config)
84 (let ((cuirass (cuirass-configuration-cuirass config)) 86 (let ((cuirass (cuirass-configuration-cuirass config))
85 (cache-directory (cuirass-configuration-cache-directory config)) 87 (cache-directory (cuirass-configuration-cache-directory config))
88 (web-log-file (cuirass-configuration-web-log-file config))
86 (log-file (cuirass-configuration-log-file config)) 89 (log-file (cuirass-configuration-log-file config))
87 (user (cuirass-configuration-user config)) 90 (user (cuirass-configuration-user config))
88 (group (cuirass-configuration-group config)) 91 (group (cuirass-configuration-group config))
@@ -140,7 +143,7 @@
140 143
141 #:user #$user 144 #:user #$user
142 #:group #$group 145 #:group #$group
143 #:log-file #$log-file)) 146 #:log-file #$web-log-file))
144 (stop #~(make-kill-destructor))))))) 147 (stop #~(make-kill-destructor)))))))
145 148
146(define (cuirass-account config) 149(define (cuirass-account config)