aboutsummaryrefslogtreecommitdiff
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
parent3b9b12ef49d0b6d7a8887513acb9e9a1a8325148 (diff)
downloadpatches-4e9ae301ce759f9cf9a09f47dc521d0bc8409f6c.tar
patches-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>
-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)