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

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

@ -277,10 +277,8 @@ JOIN (VALUES "
(define query (define query
(string-append (string-append
" "
INSERT INTO " table-name " (\n" INSERT INTO " table-name " (" (string-join field-strings ", ") ") VALUES
(string-join field-strings ",\n") " (string-join
") VALUES "
(string-join
(map (lambda (field-values) (map (lambda (field-values)
(string-append (string-append
"(" "("
@ -291,8 +289,8 @@ INSERT INTO " table-name " (\n"
", ") ", ")
")")) ")"))
data) data)
", ") ", ") "
" ON CONFLICT DO NOTHING ON CONFLICT DO NOTHING
RETURNING id")) RETURNING id"))
(if (null? data) (if (null? data)
@ -428,7 +426,7 @@ WHERE "
(define insert (define insert
(string-append (string-append
" "
INSERT INTO " table-name " (\n" (string-join field-strings ",\n") ") INSERT INTO " table-name " (" (string-join field-strings ", ") ")
VALUES (" (string-join VALUES (" (string-join
(map (lambda (i) (map (lambda (i)
(simple-format #f "$~A" i)) (simple-format #f "$~A" i))