module Database.Selda.Backend
( MonadSelda (..), SeldaT, SeldaM, SeldaError (..)
, StmtID, BackendID (..), QueryRunner, SeldaBackend (..), SeldaConnection
, SqlType (..), SqlValue (..), SqlTypeRep (..)
, IndexMethod (..)
, Param (..), Lit (..), ColAttr (..)
, PPConfig (..), defPPConfig
, TableName, ColName, ColumnInfo (..)
, columnInfo, fromColInfo
, mkTableName, mkColName, fromTableName, fromColName, rawTableName
, newConnection, allStmts, seldaBackend
, runSeldaT, seldaClose
, sqlDateTimeFormat, sqlDateFormat, sqlTimeFormat
) where
import Control.Monad
import Control.Monad.Catch
import Control.Monad.IO.Class
import Data.IORef
import Database.Selda.Backend.Internal
import Database.Selda.Table (IndexMethod (..))
import Database.Selda.Types
seldaClose :: MonadIO m => SeldaConnection -> m ()
seldaClose c = liftIO $ mask_ $ do
closed <- atomicModifyIORef' (connClosed c) $ \closed -> (True, closed)
unless closed $ closeConnection (connBackend c) c