summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/Network/Tox/Crypto/Transport.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Network/Tox/Crypto/Transport.hs b/src/Network/Tox/Crypto/Transport.hs
index d89ac80d..634a7a43 100644
--- a/src/Network/Tox/Crypto/Transport.hs
+++ b/src/Network/Tox/Crypto/Transport.hs
@@ -32,7 +32,7 @@ module Network.Tox.Crypto.Transport
32 , HasMessage(..) 32 , HasMessage(..)
33 , HasMessageType(..) 33 , HasMessageType(..)
34 -- lenses 34 -- lenses
35 , userStatus, nick, statusMessage, typingStatus, message, action, groupChatID 35 , userStatus, nick, statusMessage, typingStatus, action, groupChatID
36 , groupNumber, groupNumberToJoin, peerNumber, messageNumber 36 , groupNumber, groupNumberToJoin, peerNumber, messageNumber
37 , messageName, messageData, name, title, message, messageType 37 , messageName, messageData, name, title, message, messageType
38 -- constructor 38 -- constructor
@@ -559,6 +559,7 @@ msgSizeParam MESSAGE_GROUPCHAT {-0x63-} = Nothing -- variable
559msgSizeParam LOSSY_GROUPCHAT {-0xC7-} = Nothing -- variable 559msgSizeParam LOSSY_GROUPCHAT {-0xC7-} = Nothing -- variable
560msgSizeParam _ = Nothing 560msgSizeParam _ = Nothing
561 561
562isIndirectGrpChat :: MessageID -> Bool
562isIndirectGrpChat MESSAGE_GROUPCHAT = True 563isIndirectGrpChat MESSAGE_GROUPCHAT = True
563isIndirectGrpChat LOSSY_GROUPCHAT = True 564isIndirectGrpChat LOSSY_GROUPCHAT = True
564isIndirectGrpChat _ = False 565isIndirectGrpChat _ = False