module Database.HaskellDB.HDBC.PostgreSQL (
postgresqlConnect,
DriverInterface(..),
driver
) where
import Database.HaskellDB.Database
import Database.HaskellDB.HDBC
import Database.HaskellDB.DriverAPI
import Database.HaskellDB.Sql.PostgreSQL
import Database.HDBC.PostgreSQL (connectPostgreSQL)
postgresqlConnect :: MonadIO m => [(String,String)] -> (Database -> m a) -> m a
postgresqlConnect opts = hdbcConnect generator (connectPostgreSQL conninfo)
where conninfo = unwords [ k ++ "=" ++ v | (k,v) <- opts]
driver :: DriverInterface
driver = defaultdriver { connect = postgresqlConnect
, requiredOptions = [] }