diff options
| author | Christopher Baines <mail@cbaines.net> | 2025-03-12 09:58:43 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2025-03-12 09:58:43 +0000 |
| commit | 83ba46609291ecce9238f984888510fcb66b93d0 (patch) | |
| tree | 78c036b4e2b8fc60f307eedb7493e55c5e72d0ad | |
| parent | 83fed1d9adf703824d9b715476c747f32bb21f88 (diff) | |
| download | qa-frontpage-83ba46609291ecce9238f984888510fcb66b93d0.tar qa-frontpage-83ba46609291ecce9238f984888510fcb66b93d0.tar.gz | |
Improve exception display on the error page
| -rw-r--r-- | guix-qa-frontpage/view/util.scm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/guix-qa-frontpage/view/util.scm b/guix-qa-frontpage/view/util.scm index 497e718..829c29f 100644 --- a/guix-qa-frontpage/view/util.scm +++ b/guix-qa-frontpage/view/util.scm @@ -439,7 +439,13 @@ main > header { (h1 "An error occurred") (p "Sorry about that!") ,@(if exn - `((pre ,exn)) + `((pre ,(call-with-output-string + (lambda (port) + (print-exception + port + #f + '%exception + (list exn)))))) '()))))) (define file-mime-types |