* smaller HTML fixes

This commit is contained in:
"Vincent Ambo ext:(%22) 2013-05-05 20:40:05 +02:00
parent d7cce6cb41
commit 67b50be2fe
3 changed files with 4 additions and 4 deletions

View file

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

View file

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

View file

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