diff options
author | Christopher Baines <mail@cbaines.net> | 2023-04-21 17:25:54 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2023-04-21 17:25:54 +0100 |
commit | 005c1953c6afa25a9bbdf29655732a32646ed424 (patch) | |
tree | 014c9b6828288f7e69139dfc0d9ca31a033dfc95 /guix-build-coordinator/datastore | |
parent | d21dbf320c4b1e60b432845937f9a16d1cc4484b (diff) | |
download | build-coordinator-005c1953c6afa25a9bbdf29655732a32646ed424.tar build-coordinator-005c1953c6afa25a9bbdf29655732a32646ed424.tar.gz |
Make datastore-call-with-transaction error messages more useful
Diffstat (limited to 'guix-build-coordinator/datastore')
-rw-r--r-- | guix-build-coordinator/datastore/sqlite.scm | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/guix-build-coordinator/datastore/sqlite.scm b/guix-build-coordinator/datastore/sqlite.scm index b9dfbee..81472ff 100644 --- a/guix-build-coordinator/datastore/sqlite.scm +++ b/guix-build-coordinator/datastore/sqlite.scm @@ -427,7 +427,10 @@ PRAGMA optimize;"))))) (lambda (exn) (match (exception-args exn) (('sqlite-exec 5 msg) - (simple-format (current-error-port) "warning: sqlite error: ~A\n" msg) + (simple-format + (current-error-port) + "warning: issue starting transaction (code: 5, proc: ~A): ~A\n" + proc msg) #f) (_ (simple-format (current-error-port) @@ -445,7 +448,10 @@ PRAGMA optimize;"))))) (lambda (exn) (match (exception-args exn) (('sqlite-exec 5 msg) - (simple-format (current-error-port) "warning: sqlite error: ~A\n" msg) + (simple-format + (current-error-port) + "warning: attempt commit (code: 5, proc: ~A): ~A\n" + proc msg) #f) (_ (simple-format (current-error-port) |