@@ -5,7 +5,7 @@ module Network.Wai.Handler.Warp.Run where
55
66import Control.Concurrent (threadDelay, forkIOWithUnmask)
77import qualified Control.Concurrent as Conc (yield)
8−import Control.Exception
8+import Control.Exception as E
99import qualified Control.Exception.Lifted as Lifted
1010import Control.Monad (forever, when, unless, void)
1111import Control.Monad.IO.Class (MonadIO, liftIO)
@@ -26,7 +26,6 @@ import Network.Wai.Handler.Warp.Response
2626import Network.Wai.Handler.Warp.Settings
2727import qualified Network.Wai.Handler.Warp.Timeout as T
2828import Network.Wai.Handler.Warp.Types
29−import Prelude hiding (catch)
3029
3130#if WINDOWS
3231import qualified Control.Concurrent.MVar as MV
@@ -207,7 +206,7 @@ runSettingsConnectionMaker set getConn app = do
207206 serveConnection th set cleaner app conn addr
208207 where
209208 -- FIXME: only IOEception is caught. What about other exceptions?
210− getConnLoop = getConn `catch` \(e :: IOException) -> do
209+ getConnLoop = getConn `E.catch` \(e :: IOException) -> do
211210 onE Nothing (toException e)
212211 -- "resource exhausted (Too many open files)" may happen by accept().
213212 -- Wait a second hoping that resource will be available.