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

Improve some query formatting

Browse source
This commit is contained in:
Christopher Baines 2024-12-07 12:30:04 +00:00
parent ba97dfc1fe
commit 5664cde17c
1 changed files with 15 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -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))