about summary refs log tree commit diff
path: root/src
diff options
context:
space:
mode:
authorVincent Ambo <tazjin@gmail.com>2015-11-21T17·27+0100
committerVincent Ambo <tazjin@gmail.com>2015-11-21T17·27+0100
commite6a20995f59f1cf098976345ff737281bb771072 (patch)
tree828c92c22d80d3bce724b0f59262a7bc3b4d44f9 /src
parent8f8cb132fb805561a538c94e9f6ed809695bc8c9 (diff)
[blog] Remove unneeded Lucius usage
Diffstat (limited to 'src')
-rw-r--r--src/Blog.hs1
-rw-r--r--src/Server.hs7
2 files changed, 0 insertions, 8 deletions
diff --git a/src/Blog.hs b/src/Blog.hs
index 97c7fa9bc961..f44cfe1f4265 100644
--- a/src/Blog.hs
+++ b/src/Blog.hs
@@ -9,7 +9,6 @@ import Data.Time
 import Locales
 import Text.Blaze.Html (preEscapedToHtml)
 import Text.Hamlet
-import Text.Lucius
 import Text.Markdown
 
 import qualified Data.Text as T
diff --git a/src/Server.hs b/src/Server.hs
index 6996583f5ddb..df8916d85d3b 100644
--- a/src/Server.hs
+++ b/src/Server.hs
@@ -60,13 +60,6 @@ staticHandler resDir = do
   setHeaderM "expires" "Tue, 20 Jan 2037 04:20:42 GMT"
   serveDirectory DisableBrowsing [] resDir
 
-serveBlogStyle :: ServerPart Response
-serveBlogStyle = do
-  setHeaderM "content-type" "text/css"
-  setHeaderM "cache-control" "max-age=630720000"
-  setHeaderM "expires" "Tue, 20 Jan 2037 04:20:42 GMT"
-  ok $ toResponse $ blogStyle
-
 adminHandler :: AcidState Blog -> ServerPart Response
 adminHandler acid = do
   guardSession acid