From 81c37199db52898168498f41e411fa403c8a445f Mon Sep 17 00:00:00 2001
From: Teo Camarasu <teofilcamarasu@gmail.com>
Date: Mon, 14 Oct 2024 16:48:27 +0100
Subject: [PATCH] Add some NOINLINEs to generic derived functions

---
 src/Rel8/Generic/Rel8able.hs | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/Rel8/Generic/Rel8able.hs b/src/Rel8/Generic/Rel8able.hs
index 25faaead..cdd84434 100644
--- a/src/Rel8/Generic/Rel8able.hs
+++ b/src/Rel8/Generic/Rel8able.hs
@@ -168,6 +168,7 @@ class HTable (GColumns t) => Rel8able t where
   type GColumns t = G.GColumns TColumns (GRep t Expr)
   type GFromExprs t = t Result
 
+  {-# NOINLINE gfromColumns #-}
   default gfromColumns :: forall context.
     ( SRel8able t Expr
     , forall table. SRel8able t (Field table)
@@ -181,6 +182,7 @@ class HTable (GColumns t) => Rel8able t where
     SName -> sfromColumns
     SResult -> sfromResult
 
+  {-# NOINLINE gtoColumns #-}
   default gtoColumns :: forall context.
     ( SRel8able t Expr
     , forall table. SRel8able t (Field table)
@@ -194,10 +196,12 @@ class HTable (GColumns t) => Rel8able t where
     SName -> stoColumns
     SResult -> stoResult
 
+  {-# NOINLINE gfromResult #-}
   default gfromResult :: (SSerialize t, GFromExprs t ~ t Result)
     => GColumns t Result -> GFromExprs t
   gfromResult = sfromResult
 
+  {-# NOINLINE gtoResult #-}
   default gtoResult :: (SSerialize t, GFromExprs t ~ t Result)
     => GFromExprs t -> GColumns t Result
   gtoResult = stoResult