diff options
Diffstat (limited to 'guix-qa-frontpage/database.scm')
| -rw-r--r-- | guix-qa-frontpage/database.scm | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/guix-qa-frontpage/database.scm b/guix-qa-frontpage/database.scm index 06ce3bd..34c0ce6 100644 --- a/guix-qa-frontpage/database.scm +++ b/guix-qa-frontpage/database.scm @@ -28,6 +28,7 @@ #:use-module (sqlite3) #:use-module (fibers) #:use-module (prometheus) + #:use-module (knots) #:use-module (knots queue) #:use-module (knots thread-pool) #:use-module (guix narinfo) @@ -475,14 +476,14 @@ SELECT data, timestamp FROM cache WHERE key = :key" (call-with-thread (database-reader-thread-set database) (lambda (db) - (with-throw-handler #t + (with-exception-handler + (lambda (exn) + (print-backtrace-and-exception/knots exn) + (raise-exception exn)) (lambda () (call-with-delay-logging proc - #:args args)) - (lambda args - (display (backtrace) (current-error-port)) - (newline (current-error-port))))))) + #:args args)))))) (lambda vals (when (if (procedure? store-computed-value?) (apply store-computed-value? vals) |