* gzip compression for dynamic files

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