From d7cce6cb413a3a1067ef4e6c72107a21983453a4 Mon Sep 17 00:00:00 2001 From: "\"Vincent Ambo ext:(%22)" Date: Sun, 5 May 2013 20:34:06 +0200 Subject: * more bootstrap-related fixes, nearing completion * version bumped to 4.0 --- src/Blog.hs | 22 ++++++++++++---------- 1 file changed, 12 insertions(+), 10 deletions(-) (limited to 'src/Blog.hs') diff --git a/src/Blog.hs b/src/Blog.hs index 8a7d49b9218a..4c8d19aa310b 100644 --- a/src/Blog.hs +++ b/src/Blog.hs @@ -138,7 +138,7 @@ $forall entry <- elist
#{linkText $ length $ comments entry} #{cHead $ lang entry} -
+
$if (isEntryMarkdown entry) ^{renderEntryMarkdown $ append " " $ btext entry} $else @@ -158,19 +158,21 @@ $maybe links <- footerLinks showLinks :: Maybe Int -> BlogLang -> Html showLinks (Just i) lang = [shamlet| - $if ((>) i 1) -