From e6a20995f59f1cf098976345ff737281bb771072 Mon Sep 17 00:00:00 2001 From: Vincent Ambo Date: Sat, 21 Nov 2015 18:27:25 +0100 Subject: [PATCH] [blog] Remove unneeded Lucius usage --- src/Blog.hs | 1 - src/Server.hs | 7 ------- 2 files changed, 8 deletions(-) diff --git a/src/Blog.hs b/src/Blog.hs index 97c7fa9bc..f44cfe1f4 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 6996583f5..df8916d85 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