~ruther/guix-local: services: nginx: Fix multiple index and server name.

4e9ae301ce759f9cf9a09f47dc521d0bc8409f6c — Julien Lepiller 9 years ago 3b9b12e

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>

patch browse .tar.gz

1 files changed, 3 insertions(+), 3 deletions(-)

M gnu/services/web.scm

M gnu/services/web.scm => gnu/services/web.scm +3 -3

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