summaryrefslogtreecommitdiff
path: root/src/Network/Tox/Crypto/Transport.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Network/Tox/Crypto/Transport.hs')
-rw-r--r--src/Network/Tox/Crypto/Transport.hs10
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
754 deriving (Eq,Ord,Enum,Show,Bounded) 754 deriving (Eq,Ord,Enum,Show,Bounded)
755 755
756lossyness :: MessageID -> LossyOrLossless 756lossyness :: MessageID -> LossyOrLossless
757-- lossyness (fromEnum -> x) | x < 3 = Lossy 757lossyness (fromEnum -> x) | x < 3 = Lossy
758lossyness (fromEnum -> x) | {-x >= 16,-} x < 192 = Lossless 758lossyness (fromEnum -> x) | {-x >= 16,-} x < 192 = Lossless
759lossyness (fromEnum -> x) | x >= 192, x < 255 = Lossy 759lossyness (fromEnum -> x) | x >= 192, x < 255 = Lossy
760lossyness (fromEnum -> 255) = Lossless 760lossyness (fromEnum -> 255) = Lossless
761lossyness _ = UnknownLossyness 761lossyness _ = UnknownLossyness
762 762
763isKillPacket :: MessageType -> Bool 763isKillPacket :: MessageType -> Bool
764isKillPacket (Msg KillPacket) = True 764isKillPacket (Msg KillPacket) = True