From e3d73e2413e663ae37dc4d2fa4205a23075c78ae Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Thu, 4 Dec 2014 12:48:59 -0500 Subject: [PATCH] Supply default empty-string if description missing. Fixes render bug for package "pkg-push". --- src/site.rkt | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/site.rkt b/src/site.rkt index cda4375..8de08aa 100644 --- a/src/site.rkt +++ b/src/site.rkt @@ -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))))