diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-12-07 12:30:04 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-12-09 10:53:06 +0000 |
| commit | 5664cde17cfd8acbdfcea8ebe1d364ed287c9e5a (patch) | |
| tree | 979c049e1fe2f34cd1cc25350809dec9eb90e705 | |
| parent | ba97dfc1feb5eac8212c65cf92b58faba3e5ec5e (diff) | |
| download | data-service-5664cde17cfd8acbdfcea8ebe1d364ed287c9e5a.tar data-service-5664cde17cfd8acbdfcea8ebe1d364ed287c9e5a.tar.gz | |
Improve some query formatting
| -rw-r--r-- | guix-data-service/model/utils.scm | 32 |
1 files changed, 15 insertions, 17 deletions
diff --git a/guix-data-service/model/utils.scm b/guix-data-service/model/utils.scm index 0c2cb72..cd59681 100644 --- a/guix-data-service/model/utils.scm +++ b/guix-data-service/model/utils.scm @@ -277,22 +277,20 @@ JOIN (VALUES " (define query (string-append " -INSERT INTO " table-name " (\n" -(string-join field-strings ",\n") -") VALUES " -(string-join - (map (lambda (field-values) - (string-append - "(" - (string-join - (map (lambda (value) - (value->sql value)) - field-values) - ", ") - ")")) - data) - ", ") -" ON CONFLICT DO NOTHING +INSERT INTO " table-name " (" (string-join field-strings ", ") ") VALUES +" (string-join + (map (lambda (field-values) + (string-append + "(" + (string-join + (map (lambda (value) + (value->sql value)) + field-values) + ", ") + ")")) + data) + ", ") " +ON CONFLICT DO NOTHING RETURNING id")) (if (null? data) @@ -428,7 +426,7 @@ WHERE " (define insert (string-append " -INSERT INTO " table-name " (\n" (string-join field-strings ",\n") ") +INSERT INTO " table-name " (" (string-join field-strings ", ") ") VALUES (" (string-join (map (lambda (i) (simple-format #f "$~A" i)) |