@@ -25,7 +25,7 @@
2525module Network.Wai.Handler.Warp
2626 ( -- * Run a Warp server
2727 run
28− , runOnException
28+ , runEx
2929 , runInteractive
3030 , serveConnections
3131 -- * Datatypes
@@ -85,12 +85,12 @@ import Control.Monad (forever)
8585
8686-- | Run an 'Application' on the given port, ignoring all exceptions.
8787run :: Port -> Application -> IO ()
88−run = runOnException (const $ return ())
88+run = runEx (const $ return ())
8989
9090-- | Run an 'Application' on the given port, with the given exception handler.
9191-- Please note that you will also receive 'InvalidRequest' exceptions.
92−runOnException :: (SomeException -> IO ()) -> Port -> Application -> IO ()
93−runOnException onE port = withSocketsDo . -- FIXME should this be called by client user instead?
92+runEx :: (SomeException -> IO ()) -> Port -> Application -> IO ()
93+runEx onE port = withSocketsDo . -- FIXME should this be called by client user instead?
9494 bracket
9595 (listenOn $ PortNumber $ fromIntegral port)
9696 sClose .