TakeV/guix
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

services: nginx: Join strings with spaces.

Browse source 
* 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-record-type* <nginx-configuration>
(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 @@ (define (config-domain-strings 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)))