"driftTo Done" was trying to change the response header, which is impossible.

[Lucu.git] / Network / HTTP / Lucu / ResponseWriter.hs

diff --git a/Network/HTTP/Lucu/ResponseWriter.hs b/Network/HTTP/Lucu/ResponseWriter.hs
index 1e2eacb2df7f462b99316c2c5e3a11608f3c3b1c..6ccc2864c8e984c06f266326d212b3ee340a40a6 100644 (file)
--- 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
 
@@ -115,7 +116,7 @@ responseWriter cnf h tQueue readerTID
       writeHeader itr
           = do res <- atomically $ do writeItr itr itrWroteHeader True
                                       readItr itr itrResponse id
-               hPutResponse h (fromJust res)
+               hPutResponse h res
                hFlush h
                awaitSomethingToWrite