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 (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 " (map (lambda (field-values)
(string-join (string-append
(map (lambda (field-values) "("
(string-append (string-join
"(" (map (lambda (value)
(string-join (value->sql value))
(map (lambda (value) field-values)
(value->sql value)) ", ")
field-values) ")"))
", ") 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))