diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/Blog.hs | 1 | ||||
| -rw-r--r-- | src/Server.hs | 7 |
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 |