diff options
Diffstat (limited to 'guix-qa-frontpage/manage-builds.scm')
| -rw-r--r-- | guix-qa-frontpage/manage-builds.scm | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/guix-qa-frontpage/manage-builds.scm b/guix-qa-frontpage/manage-builds.scm index 3546fcf..4d1ee97 100644 --- a/guix-qa-frontpage/manage-builds.scm +++ b/guix-qa-frontpage/manage-builds.scm @@ -100,10 +100,12 @@ (current-error-port) "failed fetching derivation changes for issue ~A: ~A\n" issue-number - (if (and (guix-data-service-error? exn) - (= (guix-data-service-error-response-code exn) 200)) - (guix-data-service-error-summary exn) - exn)) + (guix-data-service-error-summary exn)) + + (unless + (and (guix-data-service-error? exn) + (= (guix-data-service-error-response-code exn) 200)) + (print-backtrace-and-exception/knots exn)) #f) (lambda () (with-sqlite-cache |