diff options
| author | Vincent Ambo <tazjin@gmail.com> | 2015-11-21T17·27+0100 |
|---|---|---|
| committer | Vincent Ambo <tazjin@gmail.com> | 2015-11-21T17·27+0100 |
| commit | e6a20995f59f1cf098976345ff737281bb771072 (patch) | |
| tree | 828c92c22d80d3bce724b0f59262a7bc3b4d44f9 /src/Server.hs | |
| parent | 8f8cb132fb805561a538c94e9f6ed809695bc8c9 (diff) | |
[blog] Remove unneeded Lucius usage
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 |