export readyOutGoing, for doing IO before enqueuing outgoing

1 files changed, 4 insertions, 0 deletions

diff --git a/src/Data/PacketQueue.hs b/src/Data/PacketQueue.hs
index 927d6c53..cde26fb7 100644
--- a/src/Data/PacketQueue.hs
+++ b/src/Data/PacketQueue.hs
@@ -134,6 +134,10 @@ newOutGoing inq towire toWireIO num capacity seqstart = do
 data OutGoingResult = OGSuccess | OGFull | OGEncodeFail
     deriving (Eq,Show)
 
+-- | do something in IO before appending to the queue
+readyOutGoing :: PacketOutQueue extra msg wire fromwire -> IO (STM extra)
+readyOutGoing (PacketOutQueue {pktoToWireIO }) = pktoToWireIO
+
 -- | Convert a message to packet format and append it to the front of a queue
 --   used for outgoing messages. (Note that ‘front‛ usually means the higher
 --   index in this implementation.)