diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/Data/PacketQueue.hs | 4 |
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 | |||
| 134 | data OutGoingResult = OGSuccess | OGFull | OGEncodeFail | 134 | data OutGoingResult = OGSuccess | OGFull | OGEncodeFail |
| 135 | deriving (Eq,Show) | 135 | deriving (Eq,Show) |
| 136 | 136 | ||
| 137 | -- | do something in IO before appending to the queue | ||
| 138 | readyOutGoing :: PacketOutQueue extra msg wire fromwire -> IO (STM extra) | ||
| 139 | readyOutGoing (PacketOutQueue {pktoToWireIO }) = pktoToWireIO | ||
| 140 | |||
| 137 | -- | Convert a message to packet format and append it to the front of a queue | 141 | -- | Convert a message to packet format and append it to the front of a queue |
| 138 | -- used for outgoing messages. (Note that ‘front‛ usually means the higher | 142 | -- used for outgoing messages. (Note that ‘front‛ usually means the higher |
| 139 | -- index in this implementation.) | 143 | -- index in this implementation.) |