diff options
| author | Ricardo Wurmus <rekado@elephly.net> | 2016-11-30 15:59:45 +0100 |
|---|---|---|
| committer | Ricardo Wurmus <rekado@elephly.net> | 2016-11-30 16:03:18 +0100 |
| commit | 819c1945d1ddb0d3237c48cc3c4975640f9bf08d (patch) | |
| tree | 1b5f9807b770639fd5a7012b2ecb8b9e2cb44cc2 | |
| parent | 7edd195ac82c7a60fb7b61dcf59d73a12c101794 (diff) | |
| download | 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.
| -rw-r--r-- | gnu/services/web.scm | 4 |
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))) |