X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Lucu.git;a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FRequestReader.hs;h=1cce2d659295a5386254bf42d9df1a96b77aa0df;hp=57e0bdc29bf600dd7db44def5d1540d83ada1c26;hb=858129cb755aa09da2b7bd758efb8519f2c89103;hpb=5b255535f2c7d2a6d4622ad164b31e63746b906e

diff --git a/Network/HTTP/Lucu/RequestReader.hs b/Network/HTTP/Lucu/RequestReader.hs
index 57e0bdc..1cce2d6 100644
--- a/Network/HTTP/Lucu/RequestReader.hs
+++ b/Network/HTTP/Lucu/RequestReader.hs
@@ -33,7 +33,8 @@ import           System.IO
 
 requestReader :: Config -> ResTree -> Handle -> SockAddr -> InteractionQueue -> IO ()
 requestReader cnf tree h addr tQueue
-    = do catch (do input <- B.hGetContents h
+    = cnf `seq` tree `seq` h `seq` addr `seq` tQueue `seq`
+      do catch (do input <- B.hGetContents h
                    acceptRequest input) $ \ exc ->
              case exc of
                IOException _               -> return ()