From 28b00ef3d4925302f25b65f4735aa01a9fc5240d Mon Sep 17 00:00:00 2001
From: Vincent Ambo <tazjin@gmail.com>
Date: Sat, 21 Nov 2015 18:31:39 +0100
Subject: [PATCH] =?UTF-8?q?[blog]=C2=A0Minor=20design=20fixes?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 src/Blog.hs | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/src/Blog.hs b/src/Blog.hs
index f44cfe1f4..f6ed6e54f 100644
--- a/src/Blog.hs
+++ b/src/Blog.hs
@@ -82,8 +82,9 @@ $forall entry <- toDisplay
     $else
       ^{preEscapedToHtml $ btext entry}
     $if ((/=) (mtext entry) empty)
-      <a .uncoloured-link href=#{linkElems entry}>
-        #{readMore $ lang entry}
+      <p>
+        <a .uncoloured-link href=#{linkElems entry}>
+          #{readMore $ lang entry}
   <hr>
 $maybe links <- pageLinks
   ^{links}
@@ -123,6 +124,7 @@ renderEntry e@Entry{..} = [shamlet|
     <p>^{renderEntryMarkdown $ mtext}
   $else
     ^{preEscapedToHtml $ btext}
+    <p>^{preEscapedToHtml $ mtext}
 <hr>
 |]