Actually display checksum-error

2016-12-20 18:36:35 +13:00 · 2016-12-20 18:36:35 +13:00 · 1e3ef69519
commit 1e3ef69519
parent fe20d9cccd
1 changed files with 10 additions and 8 deletions
--- 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")