diff options
Diffstat (limited to 'guix-qa-frontpage/database.scm')
| -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) |