diff options
Diffstat (limited to 'src')
-rw-r--r-- | src/Blog.hs | 4 | ||||
-rw-r--r-- | src/Main.hs | 2 | ||||
-rw-r--r-- | src/RSS.hs | 2 |
3 files changed, 4 insertions, 4 deletions
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> $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 ] |