1 files changed, 2 insertions, 1 deletions

diff --git a/src/Data/Tox/Message.hs b/src/Data/Tox/Message.hs
index b77307a2..29b9f832 100644
--- a/src/Data/Tox/Message.hs
+++ b/src/Data/Tox/Message.hs
@@ -75,8 +75,9 @@ 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