diff options
| author | Christopher Baines <mail@cbaines.net> | 2017-11-25 09:10:48 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2017-12-11 20:36:35 +0000 |
| commit | b7db2c63ed5984c4886731943d6cabefe4a05fb1 (patch) | |
| tree | eb8397fc28a44a5b6daf078f5d9f1469dd248b59 | |
| parent | 0d57068333a60f0c77112a67b0a95715e4827d10 (diff) | |
| download | gnu-guix-b7db2c63ed5984c4886731943d6cabefe4a05fb1.tar gnu-guix-b7db2c63ed5984c4886731943d6cabefe4a05fb1.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") |