Haskell 中的并发数据库连接池

我是一名学习 Haskell 的 Java 程序员。
我正在开发一个小型 Web 应用程序，该应用程序使用 Happstack 并通过 HDBC 与数据库进行通信。

我写过select and exec函数，我这样使用它们：

module Main where

import Control.Exception (throw)

import Database.HDBC
import Database.HDBC.Sqlite3 -- just for this example, I use MySQL in production

main = do
    exec "CREATE TABLE IF NOT EXISTS users (name VARCHAR(80) NOT NULL)" []

    exec "INSERT INTO users VALUES ('John')" []
    exec "INSERT INTO users VALUES ('Rick')" []

    rows <- select "SELECT name FROM users" []

    let toS x = (fromSql x)::String
    let names = map (toS . head) rows

    print names

如您所见，非常简单。有query, params and result.
连接创建和提交/回滚内容隐藏在 select 和 exec 中。
这很好，我不想在我的“逻辑”代码中关心它。

exec :: String -> [SqlValue] -> IO Integer
exec query params = withDb $ \c -> run c query params

select :: String -> [SqlValue] -> IO [[SqlValue]]
select query params = withDb $ \c -> quickQuery' c query params

withDb :: (Connection -> IO a) -> IO a
withDb f = do
    conn <- handleSqlError $ connectSqlite3 "users.db"
    catchSql
        (do r <- f conn
            commit conn
            disconnect conn
            return r)
        (\e@(SqlError _ _ m) -> do
            rollback conn
            disconnect conn
            throw e)

不好的地方：

• 每次调用都会创建一个新连接 - 这会降低重负载时的性能
• DB url“users.db”是硬编码的 - 我无法在其他项目中重用这些函数而无需编辑

问题1：如何引入具有一些定义的（最小，最大）并发连接数的连接池，以便在 select/exec 调用之间重用连接？

问题2：如何使“users.db”字符串可配置？ （如何将其移至客户端代码？）

它应该是一个透明的功能：用户代码不应要求显式的连接处理/释放。

The 资源池 http://hackage.haskell.org/package/resource-pool包提供了一个高性能的资源池，可用于数据库连接池。例如：

import Data.Pool (createPool, withResource)

main = do
    pool <- createPool newConn delConn 1 10 5
    withResource pool $ \conn -> doSomething conn

创建一个数据库连接池，有1个子池，最多5个连接。每个连接在被销毁之前允许空闲 10 秒。