From 21a7ab498faa1273d367bba5f24d6ab4f7361214 Mon Sep 17 00:00:00 2001
From: James Crayne <jim.crayne@gmail.com>
Date: Fri, 1 Jun 2018 01:39:25 +0000
Subject: fix CryptoMessage seralizing issue

---
 src/Network/Tox/Crypto/Transport.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src')

diff --git a/src/Network/Tox/Crypto/Transport.hs b/src/Network/Tox/Crypto/Transport.hs
index 22a1b795..bc112078 100644
--- a/src/Network/Tox/Crypto/Transport.hs
+++ b/src/Network/Tox/Crypto/Transport.hs
@@ -237,8 +237,8 @@ instance Serialize CryptoMessage where
         i <- get :: Get MessageID
         n <- remaining
         case msgSizeParam i of
-            Just (True,1) -> return $ OneByte i
-            Just (True,2) -> TwoByte i <$> get
+            Just (True,0) -> return $ OneByte i
+            Just (True,1) -> TwoByte i <$> get
             _ -> UpToN i <$> getByteString n
 
     put (OneByte i)   =    putWord8 (fromIntegral . fromEnum $ i)
-- 
cgit v1.2.3