Fix build on GHC 9.0.1

fpco · Oct 29, 2021 · b7d19d8 · b7d19d8
1 parent f13ad6a
commit b7d19d8
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/Database/ODBC/Internal.hs b/src/Database/ODBC/Internal.hs
@@ -407,10 +407,11 @@ withExecDirect dbc string params cont =
 
 -- | Run the function with a statement.
 withStmt :: Ptr EnvAndDbc -> (forall s. SQLHSTMT s -> IO a) -> IO a
-withStmt hdbc =
+withStmt hdbc cont =
   bracket
     (assertNotNull "odbc_SQLAllocStmt" (odbc_SQLAllocStmt hdbc))
     odbc_SQLFreeStmt
+    cont
 
 -- | Run an action in a bound thread. This is neccessary due to the
 -- interaction with signals in ODBC and GHC's runtime.