tx-submission: added NOINLINE pragmas

The `continueWithState` and `continuewWithStateM` functions need `NOINLINE` pragma to make sure the `st` argument is evaluated to WHNF.
IntersectMBO · Aug 4, 2023 · f2061c9 · f2061c9
1 parent 303668e
commit f2061c9
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/ouroboros-network/src/Ouroboros/Network/TxSubmission/Inbound.hs b/ouroboros-network/src/Ouroboros/Network/TxSubmission/Inbound.hs
@@ -508,6 +508,7 @@ continueWithStateM :: NoThunks s
                    -> m (ServerStIdle n txid tx m ())
 continueWithStateM (StatefulM f) !st =
     checkInvariant (show <$> unsafeNoThunks st) (f st)
+{-# NOINLINE continueWithStateM #-}
 
 -- | A variant of 'continueWithState' to be more easily utilized with
 -- 'handleReply'.
@@ -518,3 +519,4 @@ collectAndContinueWithState :: NoThunks s
                             -> m (ServerStIdle n txid tx m ())
 collectAndContinueWithState (StatefulCollect f) !st c =
     checkInvariant (show <$> unsafeNoThunks st) (f st c)
+{-# NOINLINE collectAndContinueWithState #-}