aboutsummaryrefslogtreecommitdiff
path: root/gnu/services/web.scm
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2017-11-25 09:10:48 +0000
committerChristopher Baines <mail@cbaines.net>2017-12-11 20:36:35 +0000
commitb7db2c63ed5984c4886731943d6cabefe4a05fb1 (patch)
treeeb8397fc28a44a5b6daf078f5d9f1469dd248b59 /gnu/services/web.scm
parent0d57068333a60f0c77112a67b0a95715e4827d10 (diff)
downloadguix-b7db2c63ed5984c4886731943d6cabefe4a05fb1.tar
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.
Diffstat (limited to 'gnu/services/web.scm')
-rw-r--r--gnu/services/web.scm10
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")