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