From mboxrd@z Thu Jan 1 00:00:00 1970 Received: from eggs.gnu.org ([2001:4830:134:3::10]:58108) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1eNbUM-0003zW-NA for guix-patches@gnu.org; Sat, 09 Dec 2017 04:32:07 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1eNbUI-0003a8-Oe for guix-patches@gnu.org; Sat, 09 Dec 2017 04:32:06 -0500 Received: from debbugs.gnu.org ([208.118.235.43]:44450) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1eNbUI-0003Zz-LN for guix-patches@gnu.org; Sat, 09 Dec 2017 04:32:02 -0500 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1eNbUI-0000mB-9g for guix-patches@gnu.org; Sat, 09 Dec 2017 04:32:02 -0500 Subject: [bug#29467] [PATCH 1/2] web: Don't error about missing ssl related files. Resent-Message-ID: From: Christopher Baines Date: Sat, 9 Dec 2017 09:31:13 +0000 Message-Id: <20171209093114.5112-1-mail@cbaines.net> In-Reply-To: <87374l36b3.fsf@gnu.org> References: <87374l36b3.fsf@gnu.org> List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-patches-bounces+kyle=kyleam.com@gnu.org Sender: "Guix-patches" To: 29467@debbugs.gnu.org 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 9d713003c..1af32278c 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") -- 2.14.2