summary refs log tree commit diff
path: root/gnu/services/web.scm
diff options
context:
space:
mode:
authorJulien Lepiller <julien@lepiller.eu>2016-12-13 20:48:16 +0100
committerLudovic Courtès <ludo@gnu.org>2017-01-03 14:30:44 +0100
commit4e9ae301ce759f9cf9a09f47dc521d0bc8409f6c (patch)
tree0f51bb08b0237f5780f9e467c162920de23d0c26 /gnu/services/web.scm
parent3b9b12ef49d0b6d7a8887513acb9e9a1a8325148 (diff)
downloadguix-4e9ae301ce759f9cf9a09f47dc521d0bc8409f6c.tar.gz
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 <ludo@gnu.org>
Diffstat (limited to 'gnu/services/web.scm')
-rw-r--r--gnu/services/web.scm6
1 files changed, 3 insertions, 3 deletions
diff --git a/gnu/services/web.scm b/gnu/services/web.scm
index 12a146d8b0..a36352225e 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)