X-Git-Url: http://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FResponseWriter.hs;h=71309746f07e9fb294e9bcc22faaec8ef47dbc54;hb=b340a77fa7bd051dd13a41d0a5b1ad30220bc6b6;hp=7dca25bb0e33f9ac46e0de7745ec792cf413abf9;hpb=1000bdc46cfe7b3ae550ff24ccea9f440f11b42a;p=Lucu.git

diff --git a/Network/HTTP/Lucu/ResponseWriter.hs b/Network/HTTP/Lucu/ResponseWriter.hs
index 7dca25b..7130974 100644
--- a/Network/HTTP/Lucu/ResponseWriter.hs
+++ b/Network/HTTP/Lucu/ResponseWriter.hs
@@ -1,5 +1,6 @@
+-- #hide
 module Network.HTTP.Lucu.ResponseWriter
-    ( responseWriter -- Config -> Handle -> InteractionQueue -> IO ()
+    ( responseWriter
     )
     where
 
@@ -22,6 +23,7 @@ import           Text.Printf
 
 import Control.Concurrent
 import Debug.Trace
+import GHC.Conc (unsafeIOToSTM)
 
 
 responseWriter :: Config -> Handle -> InteractionQueue -> ThreadId -> IO ()