From 4101c6b89724b0f4e25c54e853dcdc6d6a6ae562 Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Fri, 11 Nov 2022 10:51:12 +0000
Subject: [PATCH] Stop using exception handling when inserting blocked_builds
 entries

As it doesn't work in a transaction.
---
 guix-data-service/model/blocked-builds.scm | 9 ++-------
 1 file changed, 2 insertions(+), 7 deletions(-)

diff --git a/guix-data-service/model/blocked-builds.scm b/guix-data-service/model/blocked-builds.scm
index 58ec205..cc033f6 100644
--- a/guix-data-service/model/blocked-builds.scm
+++ b/guix-data-service/model/blocked-builds.scm
@@ -174,13 +174,8 @@ ON CONFLICT DO NOTHING")
      '()))
 
   (unless (null? data)
-    (with-exception-handler
-        (lambda (exn)
-          (create-partitions)
-
-          (try-insert))
-      try-insert
-      #:unwind? #t)))
+    (create-partitions)
+    (try-insert)))
 
 (define (handle-populating-blocked-builds-for-scheduled-builds conn build-ids)
   (define (get-build-details build-id)