02/03: services: nginx: Fix multiple index and server name.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit 4e9ae301ce759f9cf9a09f47dc521d0bc8409f6c
Author: Julien Lepiller <address@hidden>
Date:   Tue Dec 13 20:48:16 2016 +0100

    services: nginx: Fix multiple index and server name.
    
    * gnu/services/web.scm (config-domain-strings, config-index-string): 
separate
    names with a space.
    
    Signed-off-by: Ludovic Courtès <address@hidden>
---
 gnu/services/web.scm |    6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/gnu/services/web.scm b/gnu/services/web.scm
index 12a146d..a363522 100644
--- a/gnu/services/web.scm
+++ b/gnu/services/web.scm
@@ -74,8 +74,8 @@
 of domain names."
  (string-join
   (map (match-lambda
-        ('default "_")
-        ((? string? str) str))
+        ('default "_ ")
+        ((? string? str) (string-append str " ")))
        names)))
 
 (define (config-index-strings names)
@@ -83,7 +83,7 @@ of domain names."
 of index files."
  (string-join
   (map (match-lambda
-        ((? string? str) str))
+        ((? string? str) (string-append str " ")))
        names)))
 
 (define (default-nginx-server-config server)