module Database.Persist.SqlBackend.Internal.SqlPoolHooks
( SqlPoolHooks(..)
) where
import Control.Exception (SomeException)
import Database.Persist.SqlBackend.Internal.IsolationLevel
data SqlPoolHooks m backend = SqlPoolHooks
{ SqlPoolHooks m backend -> backend -> m backend
alterBackend :: backend -> m backend
, SqlPoolHooks m backend -> backend -> Maybe IsolationLevel -> m ()
runBefore :: backend -> Maybe IsolationLevel -> m ()
, SqlPoolHooks m backend -> backend -> Maybe IsolationLevel -> m ()
runAfter :: backend -> Maybe IsolationLevel -> m ()
, SqlPoolHooks m backend
-> backend -> Maybe IsolationLevel -> SomeException -> m ()
runOnException :: backend -> Maybe IsolationLevel -> SomeException -> m ()
}