diff options
Diffstat (limited to 'guix-qa-frontpage/view/util.scm')
-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 |