diff options
| author | Christopher Baines <mail@cbaines.net> | 2017-08-02 15:52:36 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2017-08-17 18:32:27 +0100 |
| commit | f2d7a492df759ab7416ff4b244e37896835f04fa (patch) | |
| tree | 92e4cf04e3cafd5278fcd0099de8a540e2aefbe1 | |
| parent | c9aa261be48a2463022faf5bea1854503a5ba7d7 (diff) | |
| download | guix-f2d7a492df759ab7416ff4b244e37896835f04fa.tar guix-f2d7a492df759ab7416ff4b244e37896835f04fa.tar.gz | |
web: Check for the existance of SSL related files.
This adds back the previous behaviour of the nginx-service-type, where the
service would check at the time when the configuration is generated if the SSL
certificate and certificate key file exists.
* gnu/services/web.scm (emit-nginx-server-config): Add back check for SSL
related files.
| -rw-r--r-- | gnu/services/web.scm | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/gnu/services/web.scm b/gnu/services/web.scm index 97318ecb12..cc7adeb5e4 100644 --- a/gnu/services/web.scm +++ b/gnu/services/web.scm @@ -157,6 +157,16 @@ 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") |