diff options
| author | Christopher Baines <mail@cbaines.net> | 2022-11-11 10:51:12 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2022-11-11 10:51:12 +0000 |
| commit | 4101c6b89724b0f4e25c54e853dcdc6d6a6ae562 (patch) | |
| tree | c3ce44d2eb65875b8a99362890e80eba10e0e6c9 | |
| parent | 01e54c36dbdaf6e98940d384a07d93be640f433e (diff) | |
| download | data-service-4101c6b89724b0f4e25c54e853dcdc6d6a6ae562.tar data-service-4101c6b89724b0f4e25c54e853dcdc6d6a6ae562.tar.gz | |
Stop using exception handling when inserting blocked_builds entries
As it doesn't work in a transaction.
| -rw-r--r-- | guix-data-service/model/blocked-builds.scm | 9 |
1 files 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) |