From d687928a04307ef9bdd9d811197aeba377bcfa01 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sat, 27 Jun 2020 13:54:07 +0100 Subject: [PATCH] Implement insert-build-status using insert-build-statues To reduce the number of code paths. --- guix-data-service/model/build-status.scm | 19 ++++--------------- 1 file changed, 4 insertions(+), 15 deletions(-) diff --git a/guix-data-service/model/build-status.scm b/guix-data-service/model/build-status.scm index 859ce9d..ebcc023 100644 --- a/guix-data-service/model/build-status.scm +++ b/guix-data-service/model/build-status.scm @@ -52,21 +52,10 @@ WHERE builds.build_server_id = $1 AND (number->string build-id)))) (define (insert-build-status conn build-id timestamp status) - (define query - (string-append - " -INSERT INTO build_status (build_id, timestamp, status) -VALUES (" - (number->string build-id) - ", " - (string-append "to_timestamp(" - (number->string timestamp) - ")") - ", " - (quote-string status) - ")")) - - (exec-query conn query '())) + (insert-build-statuses + conn + (list build-id) + `((,timestamp ,status)))) (define (insert-build-statuses conn build-ids data) (define query