From 819c1945d1ddb0d3237c48cc3c4975640f9bf08d Mon Sep 17 00:00:00 2001 From: Ricardo Wurmus Date: Wed, 30 Nov 2016 15:59:45 +0100 Subject: services: nginx: Join strings with spaces. * gnu/services/web.scm (config-domain-strings, config-index-strings): Use "string-join" to join strings with spaces. --- gnu/services/web.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'gnu/services') diff --git a/gnu/services/web.scm b/gnu/services/web.scm index 59e1e54e04..8f6e5bf6b7 100644 --- a/gnu/services/web.scm +++ b/gnu/services/web.scm @@ -72,7 +72,7 @@ (define-record-type* (define (config-domain-strings names) "Return a string denoting the nginx config representation of NAMES, a list of domain names." - (string-concatenate + (string-join (map (match-lambda ('default "_") ((? string? str) str)) @@ -81,7 +81,7 @@ (define (config-domain-strings names) (define (config-index-strings names) "Return a string denoting the nginx config representation of NAMES, a list of index files." - (string-concatenate + (string-join (map (match-lambda ((? string? str) str)) names))) -- cgit v1.2.3