diff options
Diffstat (limited to 'src/Network/Tox/Crypto/Transport.hs')
-rw-r--r-- | src/Network/Tox/Crypto/Transport.hs | 10 |
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 | ||
756 | lossyness :: MessageID -> LossyOrLossless | 756 | lossyness :: MessageID -> LossyOrLossless |
757 | -- lossyness (fromEnum -> x) | x < 3 = Lossy | 757 | lossyness (fromEnum -> x) | x < 3 = Lossy |
758 | lossyness (fromEnum -> x) | {-x >= 16,-} x < 192 = Lossless | 758 | lossyness (fromEnum -> x) | {-x >= 16,-} x < 192 = Lossless |
759 | lossyness (fromEnum -> x) | x >= 192, x < 255 = Lossy | 759 | lossyness (fromEnum -> x) | x >= 192, x < 255 = Lossy |
760 | lossyness (fromEnum -> 255) = Lossless | 760 | lossyness (fromEnum -> 255) = Lossless |
761 | lossyness _ = UnknownLossyness | 761 | lossyness _ = UnknownLossyness |
762 | 762 | ||
763 | isKillPacket :: MessageType -> Bool | 763 | isKillPacket :: MessageType -> Bool |
764 | isKillPacket (Msg KillPacket) = True | 764 | isKillPacket (Msg KillPacket) = True |