Skip to content
Snippets Groups Projects
Unverified Commit b7db2c63 authored by Christopher Baines's avatar Christopher Baines
Browse files

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

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.
parent 0d570683
No related branches found
No related tags found
No related merge requests found
...@@ -191,16 +191,6 @@ (define-syntax-rule (and/l x tail ...) ...@@ -191,16 +191,6 @@ (define-syntax-rule (and/l x tail ...)
(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")
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment