Don't mask error in test setup

test/test_builder_db.ml

@@ -145,7 +145,6 @@ let fail_if_none a =
   Option.to_result ~none:(`Msg "Failed to retrieve") a
 
 let add_test_build user_id (module Db : CONN) =
-  let r =
   let open Builder_db in
   Db.start () >>= fun () ->
   Db.exec Job.try_add job_name >>= fun () ->
@@ -157,17 +156,6 @@ let add_test_build user_id (module Db : CONN) =
   Db.find last_insert_rowid () >>= fun main_binary_id ->
   Db.exec Build.set_main_binary (id, main_binary_id) >>= fun () ->
   Db.commit ()
-  in
-  Result.fold r
-    ~ok:Result.ok
-    ~error:(fun e ->
-        let () =
-          match e with
-          | `Msg e -> Printf.eprintf "%s\n%!" e
-          | #Caqti_error.t as e ->
-            Fmt.epr "%a" Caqti_error.pp e
-        in
-        Db.rollback ())
 
 let with_build_db f () =
   or_fail