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

Format some queries generated in insert-missing-data-and-return-all-ids

Browse source
This commit is contained in:
Christopher Baines 2022-09-14 15:42:16 +01:00
parent f41bfcf8b6
commit d791c2bd8a
1 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -196,11 +196,11 @@ WHERE table_name = $1"
(define select-query
(string-append
"SELECT id, "
"SELECT id,\n"
(string-join (map (lambda (field)
(string-append table-name "." field))
field-strings)
", ")
",\n")
" FROM " table-name
" JOIN (VALUES "
(string-join
@ -215,7 +215,7 @@ WHERE table_name = $1"
(concatenate data))
data))
", ")
") AS vals (" (string-join field-strings ", ") ") "
")\n AS vals (" (string-join field-strings ", ") ") "
"ON "
(string-join
(map (lambda (field)
@ -229,7 +229,7 @@ WHERE table_name = $1"
'())
")")))
field-strings)
" AND ")))
" AND\n ")))
(define (temp-table-select-query temp-table-name)
(string-append
@ -261,8 +261,8 @@ WHERE table_name = $1"
#:key
(table-name table-name))
(string-append
"INSERT INTO " table-name " ("
(string-join field-strings ", ")
"INSERT INTO " table-name " (\n"
(string-join field-strings ",\n")
") VALUES "
(string-join
(map (lambda (field-values)