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