KillPacket and PacketRequest are treated as lossy (bypass packet-queue).

1 files changed, 5 insertions, 5 deletions

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