From 657c72c203033fa518270c02e7c556bb7f5d974f Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Sat, 31 Aug 2019 12:09:31 +0100
Subject: Use $STR$ for better quoting in quote-string

---
 guix-data-service/model/utils.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'guix-data-service')

diff --git a/guix-data-service/model/utils.scm b/guix-data-service/model/utils.scm
index a7443d6..2dc776e 100644
--- a/guix-data-service/model/utils.scm
+++ b/guix-data-service/model/utils.scm
@@ -14,7 +14,7 @@
             group-list-by-first-n-fields))
 
 (define (quote-string s)
-  (string-append "'" s "'"))
+  (string-append "$STR$" s "$STR$"))
 
 (define (value->quoted-string-or-null value)
   (if (string? value)
-- 
cgit v1.2.3