packet request off by 1 serializatoin fix & getMissing fix

1 files changed, 4 insertions, 1 deletions

diff --git a/src/Network/Tox/Crypto/Transport.hs b/src/Network/Tox/Crypto/Transport.hs
index 678bb16d..ea8565b2 100644
--- a/src/Network/Tox/Crypto/Transport.hs
+++ b/src/Network/Tox/Crypto/Transport.hs
@@ -4,6 +4,7 @@
 {-# LANGUAGE FlexibleInstances #-}
 {-# LANGUAGE LambdaCase #-}
 {-# LANGUAGE TupleSections #-}
+{-# LANGUAGE StandaloneDeriving #-}
 module Network.Tox.Crypto.Transport
     ( parseCrypto
     , encodeCrypto
@@ -97,7 +98,7 @@ encodeHandshakes x saddr = (B.cons 0x1a (runPut $ put x),saddr)
 createRequestPacket :: Word32 -> [Word32] -> CryptoMessage
 createRequestPacket seqno xs = UpToN PacketRequest (B.pack ns)
     where
-        ys = Prelude.map (subtract seqno) xs
+        ys = Prelude.map (subtract (seqno - 1)) xs
         reduceToSums [] = []
         reduceToSums (x:xs) = x:(reduceToSums $ Prelude.map (subtract x) xs)
         makeZeroes :: Word32 -> [Word32]
@@ -168,6 +169,8 @@ data CryptoPacket (f :: * -> *) = CryptoPacket
     , pktData :: f CryptoData
     }
 
+deriving instance Show (CryptoPacket Encrypted)
+
 instance Sized CryptoData where
     size = contramap bufferStart size
             <> contramap bufferEnd size