* gzip compression for dynamic files
This commit is contained in:
parent
877a7f84b0
commit
ed05e92669
1 changed files with 3 additions and 1 deletions
|
@ -23,6 +23,7 @@ import qualified Data.Text as T
|
|||
import Data.Time
|
||||
import Data.SafeCopy (base, deriveSafeCopy)
|
||||
import Happstack.Server hiding (Session)
|
||||
import Happstack.Server.Compression
|
||||
import System.Environment(getEnv)
|
||||
import System.Locale (defaultTimeLocale)
|
||||
|
||||
|
@ -44,7 +45,8 @@ main = do
|
|||
(\acid -> simpleHTTP nullConf {port = 80} $ tazBlog acid)
|
||||
|
||||
tazBlog :: AcidState Blog -> ServerPart Response
|
||||
tazBlog acid =
|
||||
tazBlog acid = do
|
||||
compr <- compressedResponseFilter
|
||||
msum [ dir (show DE) $ blogHandler acid DE
|
||||
, dir (show EN) $ blogHandler acid EN
|
||||
, do nullDir
|
||||
|
|
Loading…
Reference in a new issue