From 66518dee183d71bc5a1e1df59c1e8019298a0c0c Mon Sep 17 00:00:00 2001
From: Marc Scholten <marc@digitallyinduced.com>
Date: Sun, 6 Oct 2024 18:06:50 +0200
Subject: [PATCH] Workaround GHC failure
 https://gitlab.haskell.org/ghc/ghc/-/issues/25042

We can not trigger the GHC bug by using INLINABLE instead of INLINE
---
 IHP/QueryBuilder.hs | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/IHP/QueryBuilder.hs b/IHP/QueryBuilder.hs
index fd3c8d093..f07a2e8f0 100644
--- a/IHP/QueryBuilder.hs
+++ b/IHP/QueryBuilder.hs
@@ -165,7 +165,7 @@ class HasQueryBuilder queryBuilderProvider joinRegister | queryBuilderProvider -
     injectQueryBuilder :: QueryBuilder table -> queryBuilderProvider table
     getQueryIndex :: queryBuilderProvider table -> Maybe ByteString
     getQueryIndex _ = Nothing
-    {-# INLINE getQueryIndex #-}
+    {-# INLINABLE getQueryIndex #-}
 
 -- Wrapper for QueryBuilders resulting from joins. Associates a joinRegister type.
 newtype JoinQueryBuilderWrapper joinRegister table = JoinQueryBuilderWrapper (QueryBuilder table)
@@ -186,24 +186,24 @@ instance HasQueryBuilder QueryBuilder EmptyModelList where
 -- JoinQueryBuilderWrappers have query builders
 instance HasQueryBuilder (JoinQueryBuilderWrapper joinRegister) joinRegister where
     getQueryBuilder (JoinQueryBuilderWrapper queryBuilder) = queryBuilder
-    {-# INLINE getQueryBuilder #-}
+    {-# INLINABLE getQueryBuilder #-}
     injectQueryBuilder = JoinQueryBuilderWrapper 
-    {-# INLINE injectQueryBuilder #-}
+    {-# INLINABLE injectQueryBuilder #-}
 
 -- NoJoinQueryBuilderWrapper have query builders and the join register does not allow any joins
 instance HasQueryBuilder NoJoinQueryBuilderWrapper NoJoins where
     getQueryBuilder (NoJoinQueryBuilderWrapper queryBuilder) = queryBuilder
-    {-# INLINE getQueryBuilder #-}
+    {-# INLINABLE getQueryBuilder #-}
     injectQueryBuilder  = NoJoinQueryBuilderWrapper 
-    {-# INLINE injectQueryBuilder #-}
+    {-# INLINABLE injectQueryBuilder #-}
 
 instance (KnownSymbol foreignTable, foreignModel ~ GetModelByTableName foreignTable , KnownSymbol indexColumn, HasField indexColumn foreignModel indexValue) => HasQueryBuilder (LabeledQueryBuilderWrapper foreignTable indexColumn indexValue) NoJoins where
     getQueryBuilder (LabeledQueryBuilderWrapper queryBuilder) = queryBuilder
-    {-# INLINE getQueryBuilder #-}
+    {-# INLINABLE getQueryBuilder #-}
     injectQueryBuilder = LabeledQueryBuilderWrapper
-    {-# INLINE injectQueryBuilder #-}
+    {-# INLINABLE injectQueryBuilder #-}
     getQueryIndex _ = Just $ symbolToByteString @foreignTable <> "." <> (Text.encodeUtf8 . fieldNameToColumnName) (symbolToText @indexColumn)
-    {-# INLINE getQueryIndex #-}
+    {-# INLINABLE getQueryIndex #-}
 
 
 data QueryBuilder (table :: Symbol) =