diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-01-27 18:41:02 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-01-27 18:41:02 +0000 |
| commit | 75f27264a609cede6c7616c18037cf6544c3666f (patch) | |
| tree | 9b5cfe18e0b0b03ce48ab38d8bd740c95244c555 /guix-data-service | |
| parent | 062ee1aed2024a8f88c3c2485b1a292f629e72e5 (diff) | |
| download | data-service-75f27264a609cede6c7616c18037cf6544c3666f.tar data-service-75f27264a609cede6c7616c18037cf6544c3666f.tar.gz | |
Improve logging when computing a channel instance derivation fails
Diffstat (limited to 'guix-data-service')
| -rw-r--r-- | guix-data-service/jobs/load-new-guix-revision.scm | 17 |
1 files changed, 12 insertions, 5 deletions
diff --git a/guix-data-service/jobs/load-new-guix-revision.scm b/guix-data-service/jobs/load-new-guix-revision.scm index 46f80ab..464a5d7 100644 --- a/guix-data-service/jobs/load-new-guix-revision.scm +++ b/guix-data-service/jobs/load-new-guix-revision.scm @@ -1159,11 +1159,18 @@ (with-resource-from-pool inferior-and-store-pool res (match res ((inferior . inferior-store) - (cons system - (inferior-eval-with-store/non-blocking - inferior - inferior-store - (inferior-code channel-instance system))))))) + (with-throw-handler #t + (lambda () + (cons system + (inferior-eval-with-store/non-blocking + inferior + inferior-store + (inferior-code channel-instance system)))) + (lambda _ + (simple-format + (current-error-port) + "failed to compute channel instance derivation for ~A\n" + system))))))) systems))) (cons |