GLiCID/guix-glicid
7
0
Fork 0
mirror of https://gitlab.univ-nantes.fr/glicid-public/guix-glicid.git synced 2025-04-30 06:08:37 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

correcting cuirass.scm

Browse source
This commit is contained in:
Jean-François GUILLAUME 2022-12-05 10:08:51 +01:00
parent 3bc68fbfb6
commit 9ea3560a5e
Signed by: Jean-François GUILLAUME
GPG key ID: 38751DAE145EFB5A
1 changed files with 26 additions and 33 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

43
glicid/services/cuirass.scm
View file

@ -27,7 +27,8 @@
cuirass-remote-worker-configuration? cuirass-remote-worker-configuration?
cuirass-remote-worker-service-type)) cuirass-remote-worker-service-type))
(define %cuirass-default-database "dbname=cuirass") (define %cuirass-default-database
"dbname=cuirass")
(define-record-type* <cuirass-remote-server-configuration> (define-record-type* <cuirass-remote-server-configuration>
cuirass-remote-server-configuration make-cuirass-remote-server-configuration cuirass-remote-server-configuration make-cuirass-remote-server-configuration
@ -91,15 +92,14 @@
(http-proxy cuirass-configuration-http-proxy ;string (http-proxy cuirass-configuration-http-proxy ;string
(default "")) (default ""))
(https-proxy cuirass-configuration-https-proxy ;string (https-proxy cuirass-configuration-https-proxy ;string
(default "")) (default "")))
)
(define (cuirass-shepherd-service config) (define (cuirass-shepherd-service config)
"Return a <shepherd-service> for the Cuirass service with CONFIG." "Return a <shepherd-service> for the Cuirass service with CONFIG."
(let ((cuirass (cuirass-configuration-cuirass config)) (let ((cuirass (cuirass-configuration-cuirass config))
(cache-directory (cuirass-configuration-cache-directory config)) (cache-directory (cuirass-configuration-cache-directory config))
(web-log-file (cuirass-configuration-web-log-file config)) (web-log-file (cuirass-configuration-web-log-file config))
(log-file (cuirass-configuration-log-file config)) (main-log-file (cuirass-configuration-log-file config))
(user (cuirass-configuration-user config)) (user (cuirass-configuration-user config))
(group (cuirass-configuration-group config)) (group (cuirass-configuration-group config))
(interval (cuirass-configuration-interval config)) (interval (cuirass-configuration-interval config))
@ -112,9 +112,7 @@
(use-substitutes? (cuirass-configuration-use-substitutes? config)) (use-substitutes? (cuirass-configuration-use-substitutes? config))
(one-shot? (cuirass-configuration-one-shot? config)) (one-shot? (cuirass-configuration-one-shot? config))
(fallback? (cuirass-configuration-fallback? config)) (fallback? (cuirass-configuration-fallback? config))
(extra-options (cuirass-configuration-extra-options config)) (extra-options (cuirass-configuration-extra-options config)))
(http-proxy (cuirass-configuration-http-proxy config))
(https-proxy (cuirass-configuration-https-proxy config)))
`(,(shepherd-service `(,(shepherd-service
(documentation "Run Cuirass.") (documentation "Run Cuirass.")
(provision '(cuirass)) (provision '(cuirass))
@ -139,18 +137,14 @@
#$@extra-options) #$@extra-options)
#:environment-variables #:environment-variables
(list (list "GIT_SSL_CAINFO=/etc/ssl/certs/ca-certificates.crt"
"GIT_SSL_CAINFO=/etc/ssl/certs/ca-certificates.crt"
(string-append "GIT_EXEC_PATH=" #$git "/libexec/git-core") (string-append "GIT_EXEC_PATH=" #$git "/libexec/git-core")
(string-append "http_proxy=" #$http-proxy) (string-append "http_proxy=" #$http-proxy)
(string-append "https_proxy=" #$http-proxy) (string-append "https_proxy=" #$http-proxy))
;"http_proxy=http://proxy-upgrade.univ-nantes.prive:3128/"
;"https_proxy=http://proxy-upgrade.univ-nantes.prive:3128/"
)
#:user #$user #:user #$user
#:group #$group #:group #$group
#:log-file #$log-file)) #:log-file #$main-log-file))
(stop #~(make-kill-destructor))) (stop #~(make-kill-destructor)))
,(shepherd-service ,(shepherd-service
(documentation "Run Cuirass web interface.") (documentation "Run Cuirass web interface.")
@ -223,12 +217,10 @@
private-key)) private-key))
'())) '()))
#:environment-variables #:environment-variables
(list (list "GIT_SSL_CAINFO=/etc/ssl/certs/ca-certificates.crt"
"GIT_SSL_CAINFO=/etc/ssl/certs/ca-certificates.crt"
(string-append "GIT_EXEC_PATH=" #$git "/libexec/git-core") (string-append "GIT_EXEC_PATH=" #$git "/libexec/git-core")
(string-append "http_proxy=" #$http-proxy) (string-append "http_proxy=" #$http-proxy)
(string-append "https_proxy=" #$http-proxy) (string-append "https_proxy=" #$http-proxy))
)
#:log-file #$log-file)) #:log-file #$log-file))
(stop #~(make-kill-destructor))))) (stop #~(make-kill-destructor)))))
'())))) '()))))
@ -293,7 +285,8 @@
(files (list (cuirass-configuration-log-file config) (files (list (cuirass-configuration-log-file config)
(cuirass-configuration-web-log-file config))) (cuirass-configuration-web-log-file config)))
(frequency 'weekly) (frequency 'weekly)
(options '("rotate 40"))))) ;worth keeping (options `("rotate 40" ;worth keeping
,@%default-log-rotation-options)))))
(define cuirass-service-type (define cuirass-service-type
(service-type (service-type
@ -379,19 +372,19 @@
private-key)) private-key))
'())) '()))
#:environment-variables #:environment-variables
(list (list "GIT_SSL_CAINFO=/etc/ssl/certs/ca-certificates.crt"
"GIT_SSL_CAINFO=/etc/ssl/certs/ca-certificates.crt"
(string-append "GIT_EXEC_PATH=" #$git "/libexec/git-core") (string-append "GIT_EXEC_PATH=" #$git "/libexec/git-core")
(string-append "http_proxy=" #$http-proxy) (string-append "http_proxy=" #$http-proxy)
(string-append "https_proxy=" #$http-proxy) (string-append "https_proxy=" #$http-proxy))
)
#:log-file #$log-file)) #:log-file #$log-file))
(stop #~(make-kill-destructor)))))) (stop #~(make-kill-destructor))))))
(define cuirass-remote-worker-service-type (define cuirass-remote-worker-service-type
(service-type (service-type
(name 'cuirass-remote-worker) (name 'cuirass-remote-worker)
(extensions (list (extensions
(list
(service-extension shepherd-root-service-type (service-extension shepherd-root-service-type
cuirass-remote-worker-shepherd-service))) cuirass-remote-worker-shepherd-service)))
(description "Run the Cuirass remote build worker service."))) (description
"Run the Cuirass remote build worker service.")))