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

services: databases: Change quote' to single-quote. 

In the postgresql-config-file gexp compiler.

* gnu/services/databases.scm (postgresql-config-file-compiler): Change quote'
to single-quote.
This commit is contained in:
Christopher Baines 2018-03-17 20:23:33 +00:00
parent 3def739da1
commit 533808383f
No known key found for this signature in database
GPG Key ID: 5E28A33B0B84F577
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
gnu/services/databases.scm
View File

@ -112,7 +112,7 @@ host all all ::1/128 trust"))
(match file (match file
(($ <postgresql-config-file> log-destination hba-file (($ <postgresql-config-file> log-destination hba-file
ident-file extra-config) ident-file extra-config)
(define (quote' string) (define (single-quote string)
(if string (if string
(list "'" string "'") (list "'" string "'")
'())) '()))
@ -124,9 +124,9 @@ host all all ::1/128 trust"))
((key . #f) '()) ((key . #f) '())
((key values ...) `(,key " = " ,@values "\n"))) ((key values ...) `(,key " = " ,@values "\n")))
`(("log_destination" ,@(quote' log-destination)) `(("log_destination" ,@(single-quote log-destination))
("hba_file" ,@(quote' hba-file)) ("hba_file" ,@(single-quote hba-file))
("ident_file" ,@(quote' ident-file)) ("ident_file" ,@(single-quote ident-file))
,@extra-config))) ,@extra-config)))
(gexp->derivation (gexp->derivation