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