suzanne.soy/racket-pkg-website
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Actually display checksum-error

Browse Source
This commit is contained in:
Tony Garnock-Jones 2016-12-20 18:36:35 +13:00
parent fe20d9cccd
commit 1e3ef69519
1 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
src/site.rkt
View File

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