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

[Christopher Baines]

cbaines pushed a commit to branch master
in repository guix.

commit 533808383f7fca6563aee1452f5202e0cd1b66b8
Author: Christopher Baines <address@hidden>
Date:   Sat Mar 17 20:23:33 2018 +0000

    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(-)

diff --git a/gnu/services/databases.scm b/gnu/services/databases.scm
index 72927c4..8ae248e 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