From 533808383f7fca6563aee1452f5202e0cd1b66b8 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sat, 17 Mar 2018 20:23:33 +0000 Subject: 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. --- gnu/services/databases.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'gnu/services/databases.scm') 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 @@ (define-gexp-compiler (postgresql-config-file-compiler (match file (($ log-destination hba-file ident-file extra-config) - (define (quote' string) + (define (single-quote string) (if string (list "'" string "'") '())) @@ -124,9 +124,9 @@ (define contents ((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 -- cgit v1.2.3