X-Git-Url: http://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FResponseWriter.hs;h=a3a6af106071d6d8a5f7b357fab3ee4823e057ef;hb=d05d8c883eaca12ee621975a2b95c5ebdc2357d2;hp=00e6f46b523849315c9ac833d44fe947ab5239f5;hpb=858129cb755aa09da2b7bd758efb8519f2c89103;p=Lucu.git

diff --git a/Network/HTTP/Lucu/ResponseWriter.hs b/Network/HTTP/Lucu/ResponseWriter.hs
index 00e6f46..a3a6af1 100644
--- a/Network/HTTP/Lucu/ResponseWriter.hs
+++ b/Network/HTTP/Lucu/ResponseWriter.hs
@@ -1,17 +1,15 @@
--- #hide
 module Network.HTTP.Lucu.ResponseWriter
     ( responseWriter
     )
     where
 
 import qualified Data.ByteString.Lazy.Char8 as B
-import           Data.ByteString.Lazy.Char8 (ByteString)
+import           Control.Concurrent
 import           Control.Concurrent.STM
 import           Control.Exception
 import           Control.Monad
-import           Data.Maybe
 import qualified Data.Sequence as S
-import           Data.Sequence (Seq, ViewR(..))
+import           Data.Sequence (ViewR(..))
 import           Network.HTTP.Lucu.Config
 import           Network.HTTP.Lucu.Format
 import           Network.HTTP.Lucu.HttpVersion
@@ -21,10 +19,6 @@ import           Network.HTTP.Lucu.Response
 import           Prelude hiding (catch)
 import           System.IO
 
-import Control.Concurrent
-import Debug.Trace
-import GHC.Conc (unsafeIOToSTM)
-
 
 responseWriter :: Config -> Handle -> InteractionQueue -> ThreadId -> IO ()
 responseWriter cnf h tQueue readerTID