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

* small fixes that I don't remember

Browse source
This commit is contained in:
"Vincent Ambo ext:(%22) 2013-04-24 14:35:25 +02:00
parent 0f1e6c2a6b
commit 3a39dfc19e
3 changed files with 6 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
TazBlog.cabal
View file

@ -34,4 +34,5 @@ Executable tazblog
options, options,
rss, rss,
recaptcha, recaptcha,
xhtml hamlet,
shakespeare-css

4
src/Blog.hs
View file

@ -31,7 +31,7 @@ show' = pack . show
data BlogURL = BlogURL data BlogURL = BlogURL
-- blog CSS (admin is still static) -- blog CSS (admin is still static)
stylesheetSource = $(luciusFile "../res/blogstyle.lucius") stylesheetSource = $(luciusFile "res/blogstyle.lucius")
blogStyle = renderCssUrl undefined stylesheetSource blogStyle = renderCssUrl undefined stylesheetSource
-- blog HTML -- blog HTML
blogTemplate :: BlogLang -> Text -> Html -> Html blogTemplate :: BlogLang -> Text -> Html -> Html
@ -164,7 +164,7 @@ renderCommentBox cLang cId = [shamlet|
<p><input class="cInput" style="width:120px;" type="submit" value=#{cSend cLang}> <p><input class="cInput" style="width:120px;" type="submit" value=#{cSend cLang}>
|] |]
where where
aLink = T.concat ["/", show' cLang, "/postcomment", show' cId] aLink = T.concat ["/", show' cLang, "/postcomment/", show' cId]
showSiteNotice :: Html showSiteNotice :: Html
showSiteNotice = [shamlet| showSiteNotice = [shamlet|

3
src/Main.hs
View file

@ -90,7 +90,8 @@ tazBlog acid captchakey = do
, dir "dologin" $ processLogin acid , dir "dologin" $ processLogin acid
, do dirs "static/blogv34.css" $ nullDir , do dirs "static/blogv34.css" $ nullDir
setHeaderM "content-type" "text/css" setHeaderM "content-type" "text/css"
neverExpires setHeaderM "cache-control" "max-age=630720000"
setHeaderM "expires" "Tue, 20 Jan 2037 04:20:42 GMT"
ok $ toResponse $ blogStyle ok $ toResponse $ blogStyle
, do setHeaderM "cache-control" "max-age=630720000" , do setHeaderM "cache-control" "max-age=630720000"
setHeaderM "expires" "Tue, 20 Jan 2037 04:20:42 GMT" setHeaderM "expires" "Tue, 20 Jan 2037 04:20:42 GMT"