me/guix
Archived
1
0
Fork 0
Code Activity

web: Don't error about missing ssl related files.

Browse source 
Erroring here prevents doing things like building a system using nginx on a
different machine from where it's intended to be deployed, or creating
containers and VMs that use the ssl-certificate parts of the nginx
configuration, without also getting these files to exist.

* gnu/services/web.scm (emit-nginx-server-config): Don't error on missing ssl
  related files.
This commit is contained in:
Christopher Baines 2017-11-25 09:10:48 +00:00
parent 0d57068333
commit b7db2c63ed
No known key found for this signature in database
GPG key ID: 5E28A33B0B84F577
1 changed files with 0 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
gnu/services/web.scm
View file

@ -191,16 +191,6 @@ of index files."
(syntax-parameterize ((<> (identifier-syntax x*))) (syntax-parameterize ((<> (identifier-syntax x*)))
(list tail ...)) (list tail ...))
'()))) '())))
(for-each
(match-lambda
((record-key . file)
(if (and file (not (file-exists? file)))
(error
(simple-format
#f
"~A in the nginx configuration for the server with name \"~A\" does not exist" record-key server-name)))))
`(("ssl-certificate" . ,ssl-certificate)
("ssl-certificate-key" . ,ssl-certificate-key)))
(list (list
" server {\n" " server {\n"
(and/l http-port " listen " (number->string <>) ";\n") (and/l http-port " listen " (number->string <>) ";\n")