~ruther/guix-local: services: nginx: Join strings with spaces.

819c1945d1ddb0d3237c48cc3c4975640f9bf08d — Ricardo Wurmus 9 years ago 7edd195

services: nginx: Join strings with spaces.

* gnu/services/web.scm (config-domain-strings, config-index-strings):
Use "string-join" to join strings with spaces.

patch browse .tar.gz

1 files changed, 2 insertions(+), 2 deletions(-)

M gnu/services/web.scm

M gnu/services/web.scm => gnu/services/web.scm +2 -2

@@ 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)))