Haskell HDBC-ODBC 内存泄漏？

Question

当使用 Haskell HDBC-ODBC 库连接到 Microsoft SQL Server 时，我遇到了严重的内存泄漏。

import           Database.HDBC        
import qualified Database.HDBC.ODBC   as ODBC
import           Control.Monad

-- | Main application.
main :: IO ()
main = dbTest

dbTest :: IO ()
dbTest = do
    let connStr = "DSN=TESTDB;Uid=sa;Pwd=password"
    conn <- ODBC.connectODBC connStr
    replicateM_ 20000 (loop conn)
    disconnect conn
  where
    loop c = do
        result <- getTables c
        commit c
        putStrLn $ show result

运行堆分析器使我的内存使用量保持不变，但 Window 报告内存使用量增加到近 100MB。

http://i.stack.imgur.com/YkUTW.png

对我来说，这似乎是 ODBC 驱动程序的 Foreign Function 接口中的内存泄漏，但这是我第一次分析代码，所以我不能确定。有没有人对修复有任何进一步的见解或建议？在循环中调用 System.Mem.performGC 尝试清理没有效果。

除了使用 HDBC-ODBC 之外，还有其他选择吗？如果没有，我可能需要学习 F#。

Answer 1

问题出在 hdbc-odbc 库中。 Git repo 提供了新版本 v2.5，但 hdbc 库也需要修补才能正常工作。

更多详情请访问this bug report。