2 files changed, 4 insertions, 2 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
 
diff --git a/src/Network/Tox/Crypto/Handlers.hs b/src/Network/Tox/Crypto/Handlers.hs
index 57df4734..07c033b6 100644
--- a/src/Network/Tox/Crypto/Handlers.hs
+++ b/src/Network/Tox/Crypto/Handlers.hs
@@ -7,6 +7,7 @@
 {-# LANGUAGE ViewPatterns    #-}
 module Network.Tox.Crypto.Handlers where
 
+import Connection
 import Network.Tox.NodeId
 import Network.Tox.Crypto.Transport
 import Network.Tox.DHT.Transport (Cookie(..), NoSpam(..))
@@ -1182,7 +1183,7 @@ sessionPacketH sessions addrRaw (CryptoPacket nonce16 encrypted) = do
                     if isLossy msgTypMapped
                         then do dput XNetCrypto $ "enqueue ncPacketQueue Lossy " ++ show cm
                                 atomically $ PB.grokInboundPacket ncPacketBuffer
-                                                (PacketReceivedLossy bufferEnd ack)
+                                                (PacketReceivedLossy bufferEnd cd ack)
                                 runCryptoHook session (bufferData cd)
                         else do dput XNetCrypto $ "enqueue ncPacketQueue Lossless " ++ show cm
                                 when (msgID cm == PING) $