diff options
Diffstat (limited to 'src/Server.hs')
| -rw-r--r-- | src/Server.hs | 7 |
1 files changed, 0 insertions, 7 deletions
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 |