{-# 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