From 1e3ef695192991fd719795a8cb97efdddbebcb04 Mon Sep 17 00:00:00 2001
From: Tony Garnock-Jones <tonygarnockjones@gmail.com>
Date: Tue, 20 Dec 2016 18:36:35 +1300
Subject: [PATCH] Actually display checksum-error

---
 src/site.rkt | 18 ++++++++++--------
 1 file changed, 10 insertions(+), 8 deletions(-)

diff --git a/src/site.rkt b/src/site.rkt
index 5030a63..ac76545 100644
--- a/src/site.rkt
+++ b/src/site.rkt
@@ -843,14 +843,16 @@
                     ,(utc->string (/ (next-fetch-deadline) 1000)) ".")
               "")
 
-          (if (package-checksum-error pkg)
-              `(div ((class "alert alert-danger")
-                     (role "alert"))
-                    (span ((class "label label-danger"))
-                          "Checksum error")
-                    " The package checksum does not match"
-                    " the package source code.")
-              "")
+          (match (package-checksum-error pkg)
+            [#f ""]
+            [err
+             `(div ((class "alert alert-danger")
+                    (role "alert"))
+                   (p (span ((class "label label-danger"))
+                            "Checksum error")
+                      " An error occurred while updating"
+                      " the package checksum.")
+                   (pre ,err))])
 
           `(table ((class "package-details"))
                   (tr (th "Authors")