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>
This commit is contained in:
Julien Lepiller 2016-12-13 20:48:16 +01:00 committed by Ludovic Courtès
parent 3b9b12ef49
commit 4e9ae301ce
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

@ -74,8 +74,8 @@ (define (config-domain-strings names)
of domain names." of domain names."
(string-join (string-join
(map (match-lambda (map (match-lambda
('default "_") ('default "_ ")
((? string? str) str)) ((? string? str) (string-append str " ")))
names))) names)))
(define (config-index-strings names) (define (config-index-strings names)
@ -83,7 +83,7 @@ (define (config-index-strings names)
of index files." of index files."
(string-join (string-join
(map (match-lambda (map (match-lambda
((? string? str) str)) ((? string? str) (string-append str " ")))
names))) names)))
(define (default-nginx-server-config server) (define (default-nginx-server-config server)