diff options
| -rw-r--r-- | TazBlog.cabal | 3 | ||||
| -rw-r--r-- | src/Blog.hs | 4 | ||||
| -rw-r--r-- | src/Main.hs | 3 |
3 files changed, 6 insertions, 4 deletions
diff --git a/TazBlog.cabal b/TazBlog.cabal index 06378b6f14a1..cd7d30adfc37 100644 --- a/TazBlog.cabal +++ b/TazBlog.cabal @@ -34,4 +34,5 @@ Executable tazblog options, rss, recaptcha, - xhtml + hamlet, + shakespeare-css diff --git a/src/Blog.hs b/src/Blog.hs index 3bff4460797f..fd31530c1d37 100644 --- a/src/Blog.hs +++ b/src/Blog.hs @@ -31,7 +31,7 @@ show' = pack . show data BlogURL = BlogURL -- blog CSS (admin is still static) -stylesheetSource = $(luciusFile "../res/blogstyle.lucius") +stylesheetSource = $(luciusFile "res/blogstyle.lucius") blogStyle = renderCssUrl undefined stylesheetSource -- blog 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}> |] where - aLink = T.concat ["/", show' cLang, "/postcomment", show' cId] + aLink = T.concat ["/", show' cLang, "/postcomment/", show' cId] showSiteNotice :: Html showSiteNotice = [shamlet| diff --git a/src/Main.hs b/src/Main.hs index 3efcf5be3454..a83c9958ef35 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -90,7 +90,8 @@ tazBlog acid captchakey = do , dir "dologin" $ processLogin acid , do dirs "static/blogv34.css" $ nullDir 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 , do setHeaderM "cache-control" "max-age=630720000" setHeaderM "expires" "Tue, 20 Jan 2037 04:20:42 GMT" |