@@ -1,5 +1,21 @@
1+{-# OPTIONS_GHC -fno-warn-deprecations #-}
12module Network.Wai.Handler.Warp.Internal
23 ( Settings (..)
4+ , getOnOpen
5+ , getOnClose
6+ , getOnException
37 ) where
48
59import Network.Wai.Handler.Warp.Settings (Settings (..))
10+import Network.Socket (SockAddr)
11+import Network.Wai (Request)
12+import Control.Exception (SomeException)
13+
14+getOnOpen :: Settings -> SockAddr -> IO Bool
15+getOnOpen = settingsOnOpen
16+
17+getOnClose :: Settings -> SockAddr -> IO ()
18+getOnClose = settingsOnClose
19+
20+getOnException :: Settings -> Maybe Request -> SomeException -> IO ()
21+getOnException = settingsOnException