diff options
| author | Christopher Baines <mail@cbaines.net> | 2017-11-25 09:10:48 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2017-11-27 07:50:00 +0000 |
| commit | f82ed6a3fe6897ad1b2adfdaa2c9fe595f189a54 (patch) | |
| tree | 6c942901ba1c0c90125ca464b0a43529a96b0628 | |
| parent | a93ac4cbdfe9af59b42e23cac811552f9b9e6f2b (diff) | |
| download | gnu-guix-f82ed6a3fe6897ad1b2adfdaa2c9fe595f189a54.tar gnu-guix-f82ed6a3fe6897ad1b2adfdaa2c9fe595f189a54.tar.gz | |
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.
| -rw-r--r-- | gnu/services/web.scm | 10 |
1 files changed, 0 insertions, 10 deletions
diff --git a/gnu/services/web.scm b/gnu/services/web.scm index 9d713003c3..1af32278c1 100644 --- a/gnu/services/web.scm +++ b/gnu/services/web.scm @@ -191,16 +191,6 @@ of index files." (syntax-parameterize ((<> (identifier-syntax x*))) (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 " server {\n" (and/l http-port " listen " (number->string <>) ";\n") |