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

[Christopher Baines]

cbaines pushed a commit to branch master
in repository guix.

commit b7db2c63ed5984c4886731943d6cabefe4a05fb1
Author: Christopher Baines <address@hidden>
Date:   Sat Nov 25 09:10:48 2017 +0000

    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.
---
 gnu/services/web.scm | 10 ----------
 1 file changed, 10 deletions(-)

diff --git a/gnu/services/web.scm b/gnu/services/web.scm
index 9d71300..1af3227 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")