01/08: Implement insert-build-status using insert-build-statues

[Christopher Baines]

cbaines pushed a commit to branch master
in repository data-service.

commit d687928a04307ef9bdd9d811197aeba377bcfa01
Author: Christopher Baines <mail@cbaines.net>
AuthorDate: Sat Jun 27 13:54:07 2020 +0100

    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