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/sqlite.scm | |
| 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/sqlite.scm')
| -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) |