diff options
Diffstat (limited to 'services/tazblog/src/Blog.hs')
| -rw-r--r-- | services/tazblog/src/Blog.hs | 14 |
1 files changed, 4 insertions, 10 deletions
diff --git a/services/tazblog/src/Blog.hs b/services/tazblog/src/Blog.hs index 15ac9993eba4..6c61c2ce26c1 100644 --- a/services/tazblog/src/Blog.hs +++ b/services/tazblog/src/Blog.hs @@ -82,13 +82,9 @@ $forall entry <- entries <aside .date> #{pack $ formatTime defaultTimeLocale "%Y-%m-%d" $ edate entry} $if (isEntryMarkdown entry) - ^{renderEntryMarkdown $ btext entry} + ^{renderEntryMarkdown $ text entry} $else - ^{preEscapedToHtml $ btext entry} - $if ((/=) (mtext entry) empty) - <p> - <a .uncoloured-link href=#{linkElems entry}> - #{readMore $ lang entry} + ^{preEscapedToHtml $ text entry} <hr> $maybe links <- pageLinks ^{links} @@ -126,11 +122,9 @@ renderEntry e@Entry {..} = <aside .date> #{pack $ formatTime defaultTimeLocale "%Y-%m-%d" edate} $if (isEntryMarkdown e) - ^{renderEntryMarkdown btext} - <p>^{renderEntryMarkdown $ mtext} + ^{renderEntryMarkdown text} $else - ^{preEscapedToHtml $ btext} - <p>^{preEscapedToHtml $ mtext} + ^{preEscapedToHtml $ text} <hr> |] |