From ce5f39de5a3980e5c273e83b98a971368952da3f Mon Sep 17 00:00:00 2001 From: James Crayne Date: Wed, 27 Jun 2018 04:19:48 +0000 Subject: Fix: Pings & Packet requests were miss-classified as lossy --- src/Network/Tox/Crypto/Transport.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Network/Tox/Crypto') diff --git a/src/Network/Tox/Crypto/Transport.hs b/src/Network/Tox/Crypto/Transport.hs index a5634d71..a453a13c 100644 --- a/src/Network/Tox/Crypto/Transport.hs +++ b/src/Network/Tox/Crypto/Transport.hs @@ -753,8 +753,8 @@ data LossyOrLossless = UnknownLossyness | Lossless | Lossy deriving (Eq,Ord,Enum,Show,Bounded) lossyness :: MessageID -> LossyOrLossless -lossyness (fromEnum -> x) | x < 3 = Lossy -lossyness (fromEnum -> x) | x >= 16, x < 192 = Lossless +-- lossyness (fromEnum -> x) | x < 3 = Lossy +lossyness (fromEnum -> x) | {-x >= 16,-} x < 192 = Lossless lossyness (fromEnum -> x) | x >= 192, x < 255 = Lossy lossyness (fromEnum -> 255) = Lossless lossyness _ = UnknownLossyness -- cgit v1.2.3