mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-26 06:18:07 -05:00
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:
parent
3b9b12ef49
commit
4e9ae301ce
1 changed files with 3 additions and 3 deletions
|
@ -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)
|
||||||
|
|
Loading…
Reference in a new issue