first try

just took it from issues page hdbc#48 (comment)
supersonic-copycat · Nov 16, 2024 · 5ad9362 · 5ad9362
1 parent 0e492c8
commit 5ad9362
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/Database/HDBC/ODBC/Wrappers.hs b/Database/HDBC/ODBC/Wrappers.hs
@@ -55,7 +55,7 @@ sqlAllocEnv = do
     handleVar <- newMVar (Just hEnv)
     let wrapper = EnvWrapper handleVar
 
-    addFinalizer wrapper $ freeEnvIfNotAlready wrapper
+    _ <- mkWeakMVar handleVar $ freeEnvIfNotAlready wrapper
     return wrapper
 
 freeEnvIfNotAlready :: EnvWrapper -> IO ()
@@ -98,7 +98,7 @@ sqlAllocDbc env = do
   oldStmtsVar <- newMVar []
   let wrapper = DbcWrapper handleVar env oldStmtsVar
 
-  addFinalizer wrapper $ freeDbcIfNotAlready False wrapper
+  _ <- mkWeakMVar oldStmtsVar (freeDbcIfNotAlready False wrapper)
   return wrapper
 
 freeOldStmts :: DbcWrapper -> IO ()
@@ -163,7 +163,7 @@ sqlAllocStmt dbc = do
   handleVar <- newMVar $ Just hStmt
   let wrapper = StmtWrapper handleVar dbc
 
-  addFinalizer wrapper $ freeStmtIfNotAlready wrapper
+  mkWeakMVar handleVar $ freeStmtIfNotAlready wrapper
   return wrapper
 
 freeStmtIfNotAlready :: StmtWrapper -> IO ()