mirror of
git://git.savannah.gnu.org/guix.git
synced 2023-12-14 03:33:07 +01:00
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:
parent
3def739da1
commit
533808383f
1 changed files with 4 additions and 4 deletions
|
@ -112,7 +112,7 @@ host all all ::1/128 trust"))
|
|||
(match file
|
||||
(($ <postgresql-config-file> log-destination hba-file
|
||||
ident-file extra-config)
|
||||
(define (quote' string)
|
||||
(define (single-quote string)
|
||||
(if string
|
||||
(list "'" string "'")
|
||||
'()))
|
||||
|
@ -124,9 +124,9 @@ host all all ::1/128 trust"))
|
|||
((key . #f) '())
|
||||
((key values ...) `(,key " = " ,@values "\n")))
|
||||
|
||||
`(("log_destination" ,@(quote' log-destination))
|
||||
("hba_file" ,@(quote' hba-file))
|
||||
("ident_file" ,@(quote' ident-file))
|
||||
`(("log_destination" ,@(single-quote log-destination))
|
||||
("hba_file" ,@(single-quote hba-file))
|
||||
("ident_file" ,@(single-quote ident-file))
|
||||
,@extra-config)))
|
||||
|
||||
(gexp->derivation
|
||||
|
|
Loading…
Reference in a new issue