* smaller HTML fixes
This commit is contained in:
parent
d7cce6cb41
commit
67b50be2fe
3 changed files with 4 additions and 4 deletions
|
@ -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
|
||||
|
|
|
@ -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)
|
||||
|
|
|
@ -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
|
||||
]
|
||||
|
||||
|
|
Loading…
Reference in a new issue