From c39cd34765cd48476815365ad3a1b7c077f57620 Mon Sep 17 00:00:00 2001
From: Chris Done <chrisdone@gmail.com>
Date: Tue, 16 Dec 2014 11:44:38 +0100
Subject: [PATCH] Don't make a README section if the content's empty

---
 Handler/Package.hs       |  2 ++
 templates/package.hamlet | 17 ++++++++---------
 2 files changed, 10 insertions(+), 9 deletions(-)

diff --git a/Handler/Package.hs b/Handler/Package.hs
index 2613703..eb2b1d8 100644
--- a/Handler/Package.hs
+++ b/Handler/Package.hs
@@ -9,12 +9,14 @@ import           Data.Slug
 import           Data.Tag
 import qualified Data.Text as T
 import qualified Data.Text.Encoding as T
+import qualified Data.Text.Lazy as LT
 import           Data.Time (addUTCTime)
 import           Database.Esqueleto ((^.), (&&.), Value (Value))
 import qualified Database.Esqueleto as E
 import qualified Database.Persist as P
 import           Formatting
 import           Import
+import qualified Text.Blaze.Html.Renderer.Text as LT
 import           Text.Email.Validate
 
 -- | Page metadata package.
diff --git a/templates/package.hamlet b/templates/package.hamlet
index e8299a6..27f6aa2 100644
--- a/templates/package.hamlet
+++ b/templates/package.hamlet
@@ -108,15 +108,14 @@ $newline never
                             <li>
                                 <a href=#{url}>#{name}
 
-
-
-<div .markdown-container .readme-container>
-    <div .container .content>
-        <div .row>
-            <div .span12 .expanding>
-                #{metadataReadme metadata}
-                <div .bottom-gradient>
-                    <i class="fa fa-angle-down">
+$if not (LT.null (LT.renderHtml (metadataReadme metadata)))
+    <div .markdown-container .readme-container>
+        <div .container .content>
+            <div .row>
+                <div .span12 .expanding>
+                    #{metadataReadme metadata}
+                    <div .bottom-gradient>
+                        <i class="fa fa-angle-down">
 
 $maybe log <- metadataChangelog metadata
     <div .container .content>