about summary refs log tree commit diff
diff options
context:
space:
mode:
author"Vincent Ambo ext:(%22) <tazjin@me.com>2013-04-24T12·35+0200
committer"Vincent Ambo ext:(%22) <tazjin@me.com>2013-04-24T12·35+0200
commit3a39dfc19ee59e78de73ff8fdcf8108b751ebcf8 (patch)
tree298ec73fc908d314d0485e3506e001aa4dbc1fcf
parent0f1e6c2a6b19e16f5297b16a52e4cb94e121f838 (diff)
* small fixes that I don't remember
-rw-r--r--TazBlog.cabal3
-rw-r--r--src/Blog.hs4
-rw-r--r--src/Main.hs3
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"