mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* gzip compression for dynamic files

Browse source
This commit is contained in:
Vincent Ambo 2012-03-20 18:01:36 +01:00
parent 877a7f84b0
commit ed05e92669
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/Main.hs
View file

@ -23,6 +23,7 @@ import qualified Data.Text as T
import Data.Time import Data.Time
import Data.SafeCopy (base, deriveSafeCopy) import Data.SafeCopy (base, deriveSafeCopy)
import Happstack.Server hiding (Session) import Happstack.Server hiding (Session)
import Happstack.Server.Compression
import System.Environment(getEnv) import System.Environment(getEnv)
import System.Locale (defaultTimeLocale) import System.Locale (defaultTimeLocale)
@ -44,7 +45,8 @@ main = do
(\acid -> simpleHTTP nullConf {port = 80} $ tazBlog acid) (\acid -> simpleHTTP nullConf {port = 80} $ tazBlog acid)
tazBlog :: AcidState Blog -> ServerPart Response tazBlog :: AcidState Blog -> ServerPart Response
tazBlog acid = tazBlog acid = do
compr <- compressedResponseFilter
msum [ dir (show DE) $ blogHandler acid DE msum [ dir (show DE) $ blogHandler acid DE
, dir (show EN) $ blogHandler acid EN , dir (show EN) $ blogHandler acid EN
, do nullDir , do nullDir