From 34dfb6fec25cc826606036e65df3461212a254f1 Mon Sep 17 00:00:00 2001
From: Ondrej Palkovsky <palkovsky.ondrej@gmail.com>
Date: Thu, 9 Mar 2023 18:26:17 +0100
Subject: [PATCH] Fix segfault for ghc 9.2

---
 Database/HDBC/ODBC/Connection.hsc | 1 +
 1 file changed, 1 insertion(+)

diff --git a/Database/HDBC/ODBC/Connection.hsc b/Database/HDBC/ODBC/Connection.hsc
index 09aaf21..e991c4e 100644
--- a/Database/HDBC/ODBC/Connection.hsc
+++ b/Database/HDBC/ODBC/Connection.hsc
@@ -168,6 +168,7 @@ fdisconnect :: DbcWrapper -> ChildList -> IO ()
 fdisconnect iconn mchildren  = do
   closeAllChildren mchildren
   freeDbcIfNotAlready True iconn
+{-# NOINLINE fdisconnect #-}
 
 fGetAutoCommit :: SQLHDBC -> IO Bool
 fGetAutoCommit hdbc = do