aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2019-08-31 12:09:31 +0100
committerChristopher Baines <mail@cbaines.net>2019-08-31 12:09:31 +0100
commit657c72c203033fa518270c02e7c556bb7f5d974f (patch)
tree0d46ce958ee1b5d854d5da397919f643dcec8700
parentc7baf53c3fdf0982a0e83c25184d8a09a810f811 (diff)
downloaddata-service-657c72c203033fa518270c02e7c556bb7f5d974f.tar
data-service-657c72c203033fa518270c02e7c556bb7f5d974f.tar.gz
Use $STR$ for better quoting in quote-string
-rw-r--r--guix-data-service/model/utils.scm2
1 files changed, 1 insertions, 1 deletions
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)