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

Implement insert-build-status using insert-build-statues

Browse source 
To reduce the number of code paths.
This commit is contained in:
Christopher Baines 2020-06-27 13:54:07 +01:00
parent f60c2eabce
commit d687928a04
1 changed files with 4 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

19
guix-data-service/model/build-status.scm
View file

@ -52,21 +52,10 @@ WHERE builds.build_server_id = $1 AND
(number->string build-id)))) (number->string build-id))))
(define (insert-build-status conn build-id timestamp status) (define (insert-build-status conn build-id timestamp status)
(define query (insert-build-statuses
(string-append conn
" (list build-id)
INSERT INTO build_status (build_id, timestamp, status) `((,timestamp ,status))))
VALUES ("
(number->string build-id)
", "
(string-append "to_timestamp("
(number->string timestamp)
")")
", "
(quote-string status)
")"))
(exec-query conn query '()))
(define (insert-build-statuses conn build-ids data) (define (insert-build-statuses conn build-ids data)
(define query (define query