X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Lucu.git;a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FPostprocess.hs;h=131cc8ebb3e65f7426a3bf245cc14185a1502795;hp=39b6b4c16f24ff608c12f1c59780225682915b91;hb=1f0a19cbad7c4b64a773d7f1c1ae9180448624e6;hpb=1789cee5ee66d2f7f2b26280be2f13eac4df7980

diff --git a/Network/HTTP/Lucu/Postprocess.hs b/Network/HTTP/Lucu/Postprocess.hs
index 39b6b4c..131cc8e 100644
--- a/Network/HTTP/Lucu/Postprocess.hs
+++ b/Network/HTTP/Lucu/Postprocess.hs
@@ -9,7 +9,6 @@ module Network.HTTP.Lucu.Postprocess
     , completeUnconditionalHeaders
     )
     where
-import qualified Blaze.ByteString.Builder.Char.Utf8 as BB
 import Control.Applicative
 import Control.Concurrent.STM
 import Control.Monad
@@ -33,7 +32,6 @@ import Prelude.Unicode
 postprocess ∷ Interaction → STM ()
 postprocess itr@(Interaction {..})
     = do abortOnCertainConditions itr
-         writeDefaultPageIfNeeded itr
 
          case itrRequest of
            Just req → postprocessWithRequest itr req
@@ -115,9 +113,10 @@ writeDefaultPageIfNeeded itr@(Interaction {..})
     = do resHasCType ← readTVar itrResponseHasCType
          unless resHasCType
              $ do writeHeader itr "Content-Type" (Just defaultPageContentType)
+                  writeHeader itr "Content-Encoding" Nothing
                   res ← readTVar itrResponse
                   let page = getDefaultPage itrConfig itrRequest res
-                  putTMVar itrBodyToSend (BB.fromLazyText page)
+                  putTMVar itrBodyToSend page
 
 writeHeader ∷ Interaction → CIAscii → Maybe Ascii → STM ()
 {-# INLINE writeHeader #-}