From ed05e92669a62b8d7b84f1ef334cbd2f44d6a776 Mon Sep 17 00:00:00 2001
From: Vincent Ambo <v.ambo@me.com>
Date: Tue, 20 Mar 2012 18:01:36 +0100
Subject: [PATCH] * gzip compression for dynamic files

---
 src/Main.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/Main.hs b/src/Main.hs
index d376f9ef0..f0c28b9b5 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