diff options
| author | Christopher Baines <mail@cbaines.net> | 2019-08-31 12:09:31 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2019-08-31 12:09:31 +0100 |
| commit | 657c72c203033fa518270c02e7c556bb7f5d974f (patch) | |
| tree | 0d46ce958ee1b5d854d5da397919f643dcec8700 | |
| parent | c7baf53c3fdf0982a0e83c25184d8a09a810f811 (diff) | |
| download | data-service-657c72c203033fa518270c02e7c556bb7f5d974f.tar data-service-657c72c203033fa518270c02e7c556bb7f5d974f.tar.gz | |
Use $STR$ for better quoting in quote-string
| -rw-r--r-- | guix-data-service/model/utils.scm | 2 |
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) |