mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* smaller HTML fixes

Browse source
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
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/Blog.hs
View file

@ -131,7 +131,7 @@ renderEntries showAll entries topText footerLinks = [shamlet|
$forall entry <- elist $forall entry <- elist
<div .row> <div .row>
<div .span2> <div .span2>
<a #bar href=#{linkElems entry}> <a href=#{linkElems entry}>
<b>#{title entry} <b>#{title entry}
<br> <br>
<i>#{pack $ formatTime defaultTimeLocale "%Y-%M-%d" $ edate entry} <i>#{pack $ formatTime defaultTimeLocale "%Y-%M-%d" $ edate entry}
@ -145,7 +145,7 @@ $forall entry <- elist
^{preEscapedToHtml $ append " " $ btext entry} ^{preEscapedToHtml $ append " " $ btext entry}
$if ((/=) (mtext entry) empty) $if ((/=) (mtext entry) empty)
<p> <p>
<a .readmore #foo href=#{linkElems entry}>#{readMore $ lang entry} <a .readmore href=#{linkElems entry}>#{readMore $ lang entry}
$else $else
<br>&nbsp; <br>&nbsp;
$maybe links <- footerLinks $maybe links <- footerLinks

2
src/Main.hs
View file

@ -164,7 +164,7 @@ addComment acid lang captchakey eId = do
-- captcha verification -- captcha verification
challenge <- look "recaptcha_challenge_field" challenge <- look "recaptcha_challenge_field"
response <- look "recaptcha_response_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 validation <- liftIO $ validateCaptcha captchakey userIp challenge response
case validation of case validation of
Right _ -> update' acid (AddComment eId nComment) Right _ -> update' acid (AddComment eId nComment)

2
src/RSS.hs
View file

@ -16,7 +16,7 @@ import Locales
createChannel :: BlogLang -> UTCTime -> [ChannelElem] createChannel :: BlogLang -> UTCTime -> [ChannelElem]
createChannel l now = [ Language $ show l createChannel l now = [ Language $ show l
, Copyright "Vincent Ambo" , Copyright "Vincent Ambo"
, WebMaster "tazjin@googlemail.com" , WebMaster "tazjin@gmail.com"
, ChannelPubDate now , ChannelPubDate now
] ]