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

Supply default empty-string if description missing. Fixes render bug for package "pkg-push".

Browse Source
This commit is contained in:
Tony Garnock-Jones 2014-12-04 12:48:59 -05:00
parent 196c227800
commit e3d73e2413
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/site.rkt
View File

@ -483,7 +483,7 @@
`(span ((class "label label-info")) "New")))
(td (h2 ,(package-link (@ pkg name)))
,(authors-list (@ pkg authors)))
(td (p ,(@ pkg description))
(td (p ,(or (@ pkg description) ""))
,@(maybe-splice
(or (pair? (package-docs pkg)) (package-readme-url pkg))
`(div
@ -595,7 +595,7 @@
#:title-element ""
`(div ((class "jumbotron"))
(h1 ,(~a package-name))
(p ,(@ pkg description))
(p ,(or (@ pkg description) ""))
,(cond
[(@ pkg build failure-log)
(build-status (@ pkg build failure-log)
@ -769,7 +769,7 @@
(package-form #f
(draft-package package-name-str
package-name-str
(@ pkg description)
(or (@ pkg description) "")
(@ pkg authors)
(@ pkg tags)
(for/list (((ver info) (in-hash (@ pkg versions))))