packet request handling, finished all todo stubs (needs test)

1 files changed, 3 insertions, 3 deletions

diff --git a/src/Network/Tox/Crypto/Handlers.hs b/src/Network/Tox/Crypto/Handlers.hs
index 66de618d..457171a9 100644
--- a/src/Network/Tox/Crypto/Handlers.hs
+++ b/src/Network/Tox/Crypto/Handlers.hs
@@ -1333,7 +1333,7 @@ defaultCryptoDataHooks
             ]
 
 handlePacketRequest :: NetCryptoSession -> CryptoData -> IO ()
-handlePacketRequest session (CryptoData { bufferStart=buffstart
+handlePacketRequest session (CryptoData { bufferStart=num
                                         , bufferData=cm@(msgID -> PacketRequest)
                                         }) | let getbytes (OneByte _) = []
                                                  getbytes (TwoByte _ b) = [b]
@@ -1346,8 +1346,8 @@ handlePacketRequest session (CryptoData { bufferStart=buffstart
     case mbOutQ of
         HaveHandshake pktoq -> do
             getOutGoingParam <-PQ.readyOutGoing pktoq
-            ps <- atomically $ PQ.getRequested getOutGoingParam pktoq buffstart bs
-            let resend (Just (pkt,n)) = sendSessionPacket (ncAllSessions session) addr pkt
+            ps <- atomically $ PQ.getRequested getOutGoingParam pktoq num bs
+            let resend (Just (n,pkt)) = sendSessionPacket (ncAllSessions session) addr pkt
                 resend _ = return ()
             mapM_ resend ps
         _ -> return ()