[blog] Remove unneeded Lucius usage

This commit is contained in:
Vincent Ambo 2015-11-21 18:27:25 +01:00
parent 8f8cb132fb
commit e6a20995f5
2 changed files with 0 additions and 8 deletions

View file

@ -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

View file

@ -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