module Database.Persist.Sql
(
module Database.Persist.Sql.Class
, module Database.Persist.Sql.Run
, module Database.Persist.Sql.Migration
, module Database.Persist
, module Database.Persist.Sql.Orphan.PersistStore
, rawQuery
, rawQueryRes
, rawExecute
, rawExecuteCount
, rawSql
, deleteWhereCount
, updateWhereCount
, filterClause
, filterClauseWithVals
, orderClause
, FilterTablePrefix (..)
, transactionSave
, transactionSaveWithIsolation
, transactionUndo
, transactionUndoWithIsolation
, getStmtConn
, mkColumns
, BackendSpecificOverrides
, emptyBackendSpecificOverrides
, getBackendSpecificForeignKeyName
, setBackendSpecificForeignKeyName
, defaultAttribute
, IsolationLevel(..)
, decorateSQLWithLimitOffset
, module Database.Persist.Sql.Types
) where
import Control.Monad.IO.Class
import Control.Monad.Trans.Reader (ReaderT, ask)
import Database.Persist
import Database.Persist.Sql.Class
import Database.Persist.Sql.Internal
import Database.Persist.Sql.Migration
import Database.Persist.Sql.Raw
import Database.Persist.Sql.Run hiding (rawAcquireSqlConn, rawRunSqlPool)
import Database.Persist.Sql.Types
import Database.Persist.Sql.Types.Internal (IsolationLevel(..), SqlBackend(..))
import Database.Persist.Sql.Orphan.PersistQuery
import Database.Persist.Sql.Orphan.PersistStore
import Database.Persist.Sql.Orphan.PersistUnique ()
transactionSave :: MonadIO m => ReaderT SqlBackend m ()
transactionSave :: forall (m :: * -> *). MonadIO m => ReaderT SqlBackend m ()
transactionSave = do
conn <- ReaderT SqlBackend m SqlBackend
forall (m :: * -> *) r. Monad m => ReaderT r m r
ask
let getter = SqlBackend -> Text -> IO Statement
getStmtConn SqlBackend
conn
liftIO $ connCommit conn getter >> connBegin conn getter Nothing
transactionSaveWithIsolation :: MonadIO m => IsolationLevel -> ReaderT SqlBackend m ()
transactionSaveWithIsolation :: forall (m :: * -> *).
MonadIO m =>
IsolationLevel -> ReaderT SqlBackend m ()
transactionSaveWithIsolation IsolationLevel
isolation = do
conn <- ReaderT SqlBackend m SqlBackend
forall (m :: * -> *) r. Monad m => ReaderT r m r
ask
let getter = SqlBackend -> Text -> IO Statement
getStmtConn SqlBackend
conn
liftIO $ connCommit conn getter >> connBegin conn getter (Just isolation)
transactionUndo :: MonadIO m => ReaderT SqlBackend m ()
transactionUndo :: forall (m :: * -> *). MonadIO m => ReaderT SqlBackend m ()
transactionUndo = do
conn <- ReaderT SqlBackend m SqlBackend
forall (m :: * -> *) r. Monad m => ReaderT r m r
ask
let getter = SqlBackend -> Text -> IO Statement
getStmtConn SqlBackend
conn
liftIO $ connRollback conn getter >> connBegin conn getter Nothing
transactionUndoWithIsolation :: MonadIO m => IsolationLevel -> ReaderT SqlBackend m ()
transactionUndoWithIsolation :: forall (m :: * -> *).
MonadIO m =>
IsolationLevel -> ReaderT SqlBackend m ()
transactionUndoWithIsolation IsolationLevel
isolation = do
conn <- ReaderT SqlBackend m SqlBackend
forall (m :: * -> *) r. Monad m => ReaderT r m r
ask
let getter = SqlBackend -> Text -> IO Statement
getStmtConn SqlBackend
conn
liftIO $ connRollback conn getter >> connBegin conn getter (Just isolation)