02/02: services: nginx: Join strings with spaces.

[Ricardo Wurmus]

rekado pushed a commit to branch master
in repository guix.

commit 819c1945d1ddb0d3237c48cc3c4975640f9bf08d
Author: Ricardo Wurmus <address@hidden>
Date:   Wed Nov 30 15:59:45 2016 +0100

    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(-)

diff --git a/gnu/services/web.scm b/gnu/services/web.scm
index 59e1e54..8f6e5bf 100644
--- a/gnu/services/web.scm
+++ b/gnu/services/web.scm
@@ -72,7 +72,7 @@
 (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 @@ of domain 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)))