[blog] Remove unneeded Lucius usage
This commit is contained in:
parent
8f8cb132fb
commit
e6a20995f5
2 changed files with 0 additions and 8 deletions
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue