diff options
| author | Christopher Baines <mail@cbaines.net> | 2025-02-27 09:27:23 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2025-02-27 09:27:23 +0000 |
| commit | f566fb49c4041086f69d4e7b33162603d42f27da (patch) | |
| tree | 19df97d080f59d2cf7f2cad747ddc05132bd4767 | |
| parent | 9c4b70e8e5fb744c59f8eb30c220b2e2111aa852 (diff) | |
| download | qa-frontpage-f566fb49c4041086f69d4e7b33162603d42f27da.tar qa-frontpage-f566fb49c4041086f69d4e7b33162603d42f27da.tar.gz | |
Stop printing backtraces within call-with-thread
Knots should add the stack to the exception (not implemented yet).
| -rw-r--r-- | guix-qa-frontpage/database.scm | 11 |
1 files changed, 3 insertions, 8 deletions
diff --git a/guix-qa-frontpage/database.scm b/guix-qa-frontpage/database.scm index 34c0ce6..956b58a 100644 --- a/guix-qa-frontpage/database.scm +++ b/guix-qa-frontpage/database.scm @@ -476,14 +476,9 @@ SELECT data, timestamp FROM cache WHERE key = :key" (call-with-thread (database-reader-thread-set database) (lambda (db) - (with-exception-handler - (lambda (exn) - (print-backtrace-and-exception/knots exn) - (raise-exception exn)) - (lambda () - (call-with-delay-logging - proc - #:args args)))))) + (call-with-delay-logging + proc + #:args args)))) (lambda vals (when (if (procedure? store-computed-value?) (apply store-computed-value? vals) |