Added packet data to lossy inbound event.

1 files changed, 2 insertions, 1 deletions

diff --git a/src/Data/PacketBuffer.hs b/src/Data/PacketBuffer.hs
index f01abb28..d2e96d11 100644
--- a/src/Data/PacketBuffer.hs
+++ b/src/Data/PacketBuffer.hs
@@ -47,6 +47,7 @@ data PacketInboundEvent a
                      , peAcknowledgedNum :: Word32 -- ^ Earliest sequence number they've seen from us.
                      }
     | PacketReceivedLossy { peSeqNum          :: Word32 -- ^ Sequence number for lossy packet.
+                          , peReceivedPayload :: a      -- ^ Payload packet they sent to us (ignored).
                           , peAcknowledgedNum :: Word32 -- ^ Earliest sequence number they've seen from us.
                           }
  deriving Functor
@@ -66,7 +67,7 @@ grokInboundPacket :: PacketBuffer a b -> PacketInboundEvent a -> STM ()
 grokInboundPacket (PacketBuffer inb outb) (PacketReceived seqno a ack)
     = do Q.enqueue inb seqno a
          Q.dropPacketsBefore outb ack
-grokInboundPacket (PacketBuffer inb outb) (PacketReceivedLossy seqno ack)
+grokInboundPacket (PacketBuffer inb outb) (PacketReceivedLossy seqno _ ack)
     = do Q.observeOutOfBand inb seqno
          Q.dropPacketsBefore outb ack