From fe6e8bf7cd367afe785ed50914bc2a20d272e546 Mon Sep 17 00:00:00 2001 From: Joe Crayne Date: Fri, 7 Sep 2018 13:50:30 -0400 Subject: KillPacket and PacketRequest are treated as lossy (bypass packet-queue). --- src/Network/Tox/Crypto/Transport.hs | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'src/Network/Tox/Crypto/Transport.hs') diff --git a/src/Network/Tox/Crypto/Transport.hs b/src/Network/Tox/Crypto/Transport.hs index 8bb41254..3ade25f7 100644 --- a/src/Network/Tox/Crypto/Transport.hs +++ b/src/Network/Tox/Crypto/Transport.hs @@ -754,11 +754,11 @@ 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 >= 192, x < 255 = Lossy -lossyness (fromEnum -> 255) = Lossless -lossyness _ = UnknownLossyness +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 isKillPacket :: MessageType -> Bool isKillPacket (Msg KillPacket) = True -- cgit v1.2.3