dequeue thread & handle session close

1 files changed, 9 insertions, 0 deletions

diff --git a/src/Network/Tox/Crypto/Transport.hs b/src/Network/Tox/Crypto/Transport.hs
index 3133ee9b..70405a3e 100644
--- a/src/Network/Tox/Crypto/Transport.hs
+++ b/src/Network/Tox/Crypto/Transport.hs
@@ -21,6 +21,7 @@ module Network.Tox.Crypto.Transport
     , TypingStatus(..)
     , GroupChatId(..)
     , MessageType(..)
+    , isKillPacket, isOFFLINE
     , KnownLossyness(..)
     , AsWord16(..)
     , AsWord64(..)
@@ -694,6 +695,14 @@ lossyness (fromEnum -> x) | x >= 192, x < 255 = Lossy
 lossyness (fromEnum -> 255)                   = Lossless
 lossyness _ = UnknownLossyness
 
+isKillPacket :: MessageType -> Bool
+isKillPacket (Msg KillPacket) = True
+isKillPacket _ = False
+
+isOFFLINE :: MessageType -> Bool
+isOFFLINE (Msg OFFLINE) = True
+isOFFLINE _ = False
+
 -- TODO: Flesh this out.
 data MessageID              -- First byte indicates data
     = Padding               -- ^ 0 padding (skipped until we hit a non zero (data id) byte)