cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Use $STR$ for better quoting in quote-string

Browse source
This commit is contained in:
Christopher Baines 2019-08-31 12:09:31 +01:00
parent c7baf53c3f
commit 657c72c203
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
guix-data-service/model/utils.scm
View file

@ -14,7 +14,7 @@
group-list-by-first-n-fields)) group-list-by-first-n-fields))
(define (quote-string s) (define (quote-string s)
(string-append "'" s "'")) (string-append "$STR$" s "$STR$"))
(define (value->quoted-string-or-null value) (define (value->quoted-string-or-null value)
(if (string? value) (if (string? value)