diff options
| author | Mark H Weaver <mhw@netris.org> | 2018-03-20 00:49:05 -0400 |
|---|---|---|
| committer | Mark H Weaver <mhw@netris.org> | 2018-03-20 00:49:05 -0400 |
| commit | 647888845c0d7b9ea1b51a3e3492d4d2382f4468 (patch) | |
| tree | be34c5ec88db452c63253dc4a15f9f4cf199b1e6 /gnu/services/databases.scm | |
| parent | fe15613cdf8623574ce64c05416dd3fab41eef86 (diff) | |
| parent | c657716ede8932da356635802534aa13205a6ecd (diff) | |
| download | patches-647888845c0d7b9ea1b51a3e3492d4d2382f4468.tar patches-647888845c0d7b9ea1b51a3e3492d4d2382f4468.tar.gz | |
Merge branch 'master' into core-updates
Diffstat (limited to 'gnu/services/databases.scm')
| -rw-r--r-- | gnu/services/databases.scm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gnu/services/databases.scm b/gnu/services/databases.scm index 72927c4534..8ae248ebe4 100644 --- a/gnu/services/databases.scm +++ b/gnu/services/databases.scm @@ -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 |