aboutsummaryrefslogtreecommitdiff
path: root/guix-qa-frontpage/view/util.scm
diff options
context:
space:
mode:
Diffstat (limited to 'guix-qa-frontpage/view/util.scm')
-rw-r--r--guix-qa-frontpage/view/util.scm8
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