me
/
guix
Archived
1
0
Fork 0
Code

services: nginx: Join strings with spaces. 

* gnu/services/web.scm (config-domain-strings, config-index-strings):
Use "string-join" to join strings with spaces.
master
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)
"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)))