about summary refs log tree commit diff
path: root/src/Main.hs
diff options
context:
space:
mode:
authorVincent Ambo <v.ambo@me.com>2012-03-22T13·34+0100
committerVincent Ambo <v.ambo@me.com>2012-03-22T13·34+0100
commit6a8ffaf25a87905a9a6b15b26ffd1db03312d793 (patch)
tree74d5d2246ba22d4f80d7e0da1786721a16796ed3 /src/Main.hs
parentf6f066a93e7f62846b5bac5d469f4f4c6170c351 (diff)
* cleaned up res/ folder
* serving static/ content from res/ with 20 years expiration date
* linen texture
Diffstat (limited to 'src/Main.hs')
-rw-r--r--src/Main.hs3
1 files changed, 3 insertions, 0 deletions
diff --git a/src/Main.hs b/src/Main.hs
index f0c28b9b5bd2..f1bc9114a6cd 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -75,6 +75,9 @@ tazBlog acid = do
               ok $ toResponse $ adminIndex ("tazjin" :: Text)
          , dir "admin" $ ok $ toResponse $ adminLogin 
          , dir "dologin" $ processLogin acid
+         , do setHeaderM "cache-control" "max-age=630720000"
+              setHeaderM "expires" "Tue, 20 Jan 2037 04:20:42 GMT"
+              dir "static" $ serveDirectory DisableBrowsing [] "../res"
          , serveDirectory DisableBrowsing [] "../res"
          , notFound $ toResponse $ showError NotFound DE
          ]