aboutsummaryrefslogtreecommitdiff
path: root/gnu/services/web.scm
diff options
context:
space:
mode:
authorRicardo Wurmus <rekado@elephly.net>2016-11-30 15:59:45 +0100
committerRicardo Wurmus <rekado@elephly.net>2016-11-30 16:03:18 +0100
commit819c1945d1ddb0d3237c48cc3c4975640f9bf08d (patch)
tree1b5f9807b770639fd5a7012b2ecb8b9e2cb44cc2 /gnu/services/web.scm
parent7edd195ac82c7a60fb7b61dcf59d73a12c101794 (diff)
downloadguix-819c1945d1ddb0d3237c48cc3c4975640f9bf08d.tar
guix-819c1945d1ddb0d3237c48cc3c4975640f9bf08d.tar.gz
services: nginx: Join strings with spaces.
* gnu/services/web.scm (config-domain-strings, config-index-strings): Use "string-join" to join strings with spaces.
Diffstat (limited to 'gnu/services/web.scm')
-rw-r--r--gnu/services/web.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/gnu/services/web.scm b/gnu/services/web.scm
index 59e1e54e04..8f6e5bf6b7 100644
--- a/gnu/services/web.scm
+++ b/gnu/services/web.scm
@@ -72,7 +72,7 @@
(define (config-domain-strings names)
"Return a string denoting the nginx config representation of NAMES, a list
of domain names."
- (string-concatenate
+ (string-join
(map (match-lambda
('default "_")
((? string? str) str))
@@ -81,7 +81,7 @@ of domain names."
(define (config-index-strings names)
"Return a string denoting the nginx config representation of NAMES, a list
of index files."
- (string-concatenate
+ (string-join
(map (match-lambda
((? string? str) str))
names)))