From 67b50be2fe10b7bc829169606fb8def5c808726a Mon Sep 17 00:00:00 2001
From: "\"Vincent Ambo ext:(%22)" <tazjin@gmail.com>
Date: Sun, 5 May 2013 20:40:05 +0200
Subject: * smaller HTML fixes

---
 src/Blog.hs | 4 ++--
 src/Main.hs | 2 +-
 src/RSS.hs  | 2 +-
 3 files changed, 4 insertions(+), 4 deletions(-)

(limited to 'src')

diff --git a/src/Blog.hs b/src/Blog.hs
index 4c8d19aa310b..e45d793b2715 100644
--- a/src/Blog.hs
+++ b/src/Blog.hs
@@ -131,7 +131,7 @@ renderEntries showAll entries topText footerLinks = [shamlet|
 $forall entry <- elist
   <div .row>
     <div .span2>
-      <a #bar href=#{linkElems entry}>
+      <a href=#{linkElems entry}>
         <b>#{title entry}
         <br>
         <i>#{pack $ formatTime defaultTimeLocale "%Y-%M-%d" $ edate entry}
@@ -145,7 +145,7 @@ $forall entry <- elist
         ^{preEscapedToHtml $ append " " $ btext entry}
       $if ((/=) (mtext entry) empty)
         <p>
-          <a .readmore #foo href=#{linkElems entry}>#{readMore $ lang entry}
+          <a .readmore href=#{linkElems entry}>#{readMore $ lang entry}
       $else
         <br>&nbsp;
 $maybe links <- footerLinks
diff --git a/src/Main.hs b/src/Main.hs
index 82e6c5663a5d..25e7539a3e27 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -164,7 +164,7 @@ addComment acid lang captchakey eId = do
   -- captcha verification
   challenge <- look "recaptcha_challenge_field"
   response <- look "recaptcha_response_field"
-  (userIp, _) <- liftM rqPeer askRq -- FIXME askRq >>= return . rqPeer
+  (userIp, _) <- liftM rqPeer askRq
   validation <- liftIO $ validateCaptcha captchakey userIp challenge response
   case validation of
     Right _ -> update' acid (AddComment eId nComment)
diff --git a/src/RSS.hs b/src/RSS.hs
index 045702ece443..2309b1297c53 100644
--- a/src/RSS.hs
+++ b/src/RSS.hs
@@ -16,7 +16,7 @@ import           Locales
 createChannel :: BlogLang -> UTCTime -> [ChannelElem]
 createChannel l  now = [ Language $ show l
                        , Copyright "Vincent Ambo"
-                       , WebMaster "tazjin@googlemail.com"
+                       , WebMaster "tazjin@gmail.com"
                        , ChannelPubDate now
                        ]
 
-- 
cgit 1.4.1