diff options
| author | Christopher Baines <mail@cbaines.net> | 2025-02-27 09:27:52 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2025-02-27 09:27:52 +0000 |
| commit | e8625ce145dd6b1f75c1fd248d0063262e99855e (patch) | |
| tree | 402099c022ba0aa3965b2b21ba7a629b5df6a37e /guix-qa-frontpage/manage-builds.scm | |
| parent | f566fb49c4041086f69d4e7b33162603d42f27da (diff) | |
| download | qa-frontpage-e8625ce145dd6b1f75c1fd248d0063262e99855e.tar qa-frontpage-e8625ce145dd6b1f75c1fd248d0063262e99855e.tar.gz | |
Don't print backtraces unless there's an error
When fetching derivation changes for an issue.
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 |