mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

[blog] Minor design fixes

Browse source
This commit is contained in:
Vincent Ambo 2015-11-21 18:31:39 +01:00
parent e6a20995f5
commit 28b00ef3d4
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/Blog.hs
View file

@ -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>
|]