nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

services: nginx: Join strings with spaces. 

* gnu/services/web.scm (config-domain-strings, config-index-strings):
Use "string-join" to join strings with spaces.
This commit is contained in:
Ricardo Wurmus 2016-11-30 15:59:45 +01:00
parent 7edd195ac8
commit 819c1945d1
No known key found for this signature in database
GPG Key ID: 197A5888235FACAC
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gnu/services/web.scm
View File

@ -72,7 +72,7 @@
(define (config-domain-strings names) (define (config-domain-strings names)
"Return a string denoting the nginx config representation of NAMES, a list "Return a string denoting the nginx config representation of NAMES, a list
of domain names." of domain names."
(string-concatenate (string-join
(map (match-lambda (map (match-lambda
('default "_") ('default "_")
((? string? str) str)) ((? string? str) str))
@ -81,7 +81,7 @@ of domain names."
(define (config-index-strings names) (define (config-index-strings names)
"Return a string denoting the nginx config representation of NAMES, a list "Return a string denoting the nginx config representation of NAMES, a list
of index files." of index files."
(string-concatenate (string-join
(map (match-lambda (map (match-lambda
((? string? str) str)) ((? string? str) str))
names))) names)))