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 ()