haskoin-wallet-0.2.0: database/mysql/Network/Haskoin/Wallet/Database.hs

module Network.Haskoin.Wallet.Database where

import Control.Monad.Logger (runNoLoggingT)

import Data.Text (Text)

import Database.Persist.MySQL (MySQLConf(..), createMySQLPool)
import Database.Persist.Sql (ConnectionPool)

type DatabaseConfType = MySQLConf

databaseEngine :: Text
databaseEngine = "mysql"

getDatabasePool :: DatabaseConfType -> IO ConnectionPool
getDatabasePool conf = runNoLoggingT $
    createMySQLPool (myConnInfo conf) (myPoolSize conf)

paramLimit :: Int
paramLimit = 20