@@ -18,6 +18,8 @@ import Network.Wai.Handler.Warp.Types
1818-- | Runs the given 'Application' on a free port. Passes the port to the given
1919-- operation and executes it, while the 'Application' is running. Shuts down the
2020-- server before returning.
21+--
22+-- @since 3.2.4
2123withApplication :: IO Application -> (Port -> IO a) -> IO a
2224withApplication mkApp action = do
2325 app <- mkApp
@@ -45,6 +47,8 @@ withApplication mkApp action = do
4547--
4648-- __The exception handling makes this function unsuitable for use in production.__
4749-- Use 'withApplication' instead.
50+--
51+-- @since 3.2.4
4852testWithApplication :: IO Application -> (Port -> IO a) -> IO a
4953testWithApplication mkApp action = do
5054 callingThread <- myThreadId
@@ -70,6 +74,8 @@ mkWaiter = do
7074 }
7175
7276-- | Opens a socket on a free port and returns both port and socket.
77+--
78+-- @since 3.2.4
7379openFreePort :: IO (Port, Socket)
7480openFreePort = do
7581 s <- socket AF_INET Stream defaultProtocol