diff options
| -rw-r--r-- | src/Main.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/Main.hs b/src/Main.hs index d376f9ef0995..f0c28b9b5bd2 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -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 |