From 7ca3adad36ace11b523f7029fee4d43054f941ef Mon Sep 17 00:00:00 2001 From: Joe Crayne Date: Sat, 3 Nov 2018 10:22:28 -0400 Subject: Revert bad lossyness classication (commit b2caea0cbad) --- src/Data/Tox/Message.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'src/Data/Tox/Message.hs') diff --git a/src/Data/Tox/Message.hs b/src/Data/Tox/Message.hs index 29b9f832..b77307a2 100644 --- a/src/Data/Tox/Message.hs +++ b/src/Data/Tox/Message.hs @@ -75,9 +75,8 @@ data LossyOrLossless = Lossless | Lossy -- | Classify a packet as lossy or lossless. lossyness :: MessageID -> LossyOrLossless -lossyness (fromEnum -> 1) = Lossless lossyness (fromEnum -> x) | x < 3 = Lossy -lossyness (fromEnum -> x) | 16 <= x, x < 192 = Lossless +lossyness (fromEnum -> x) | {-16 <= x,-} x < 192 = Lossless lossyness (fromEnum -> x) | 192 <= x, x < 255 = Lossy lossyness (fromEnum -> 255) = Lossless -- cgit v1.2.3