@@ -20,6 +20,7 @@ module Network.Wai.Handler.Warp
2020 , parseRequest
2121 ) where
2222
23+import Prelude hiding (catch)
2324import Network.Wai
2425import qualified System.IO
2526
@@ -34,7 +35,7 @@ import Network.Socket
3435 ( accept
3536 )
3637import qualified Network.Socket.ByteString as Sock
37−import Control.Exception (bracket, finally, Exception)
38+import Control.Exception (bracket, finally, Exception, SomeException, catch)
3839import System.IO (Handle, hClose, hFlush)
3940import System.IO.Error (isEOFError, ioeGetHandle)
4041import Control.Concurrent (forkIO)
@@ -79,8 +80,10 @@ serveConnection port app conn remoteHost' = do
7980 (finally
8081 (E.run_ $ fromClient $$ serveConnection')
8182 (sClose conn))
82− undefined
83+ ignoreAll
8384 where
85+ ignoreAll :: SomeException -> IO ()
86+ ignoreAll _ = return ()
8487 fromClient = enumSocket 4096 conn
8588 serveConnection' = do
8689 (enumeratee, env) <- parseRequest port remoteHost'