Fix insert-build when derivation_output_details_set_id is NULL

I can't figure out how to insert NULL through a param, so just construct a
query to insert the values directly.

1 files changed, 16 insertions, 11 deletions

diff --git a/guix-data-service/model/build.scm b/guix-data-service/model/build.scm
index 09ebb31..2c2d5df 100644
--- a/guix-data-service/model/build.scm
+++ b/guix-data-service/model/build.scm
@@ -382,19 +382,24 @@ UPDATE builds SET derivation_output_details_set_id = (
 (define (insert-build conn build-server-id derivation-file-name)
   (match (exec-query
           conn
-          "
+          (string-append
+           "
 INSERT INTO builds
   (build_server_id, derivation_file_name, derivation_output_details_set_id)
-VALUES ($1, $2, $3)
-RETURNING (id)"
-          (list (number->string build-server-id)
-                derivation-file-name
-                (or
-                 (and=> (select-derivations-by-output-details-set-id-by-derivation-file-name
-                         conn
-                         derivation-file-name)
-                        number->string)
-                 "NULL")))
+VALUES ("
+           (number->string build-server-id)
+           ", "
+           (quote-string derivation-file-name)
+           ", "
+           (or
+            (and=>
+             (select-derivations-by-output-details-set-id-by-derivation-file-name
+              conn
+              derivation-file-name)
+             number->string)
+            "NULL")
+           ")
+RETURNING (id)"))
     (((id))
      (string->number id))))