diff options
Diffstat (limited to 'src/Network/Tox/Crypto/Transport.hs')
-rw-r--r-- | src/Network/Tox/Crypto/Transport.hs | 3 |
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 | |||
559 | msgSizeParam LOSSY_GROUPCHAT {-0xC7-} = Nothing -- variable | 559 | msgSizeParam LOSSY_GROUPCHAT {-0xC7-} = Nothing -- variable |
560 | msgSizeParam _ = Nothing | 560 | msgSizeParam _ = Nothing |
561 | 561 | ||
562 | isIndirectGrpChat :: MessageID -> Bool | ||
562 | isIndirectGrpChat MESSAGE_GROUPCHAT = True | 563 | isIndirectGrpChat MESSAGE_GROUPCHAT = True |
563 | isIndirectGrpChat LOSSY_GROUPCHAT = True | 564 | isIndirectGrpChat LOSSY_GROUPCHAT = True |
564 | isIndirectGrpChat _ = False | 565 | isIndirectGrpChat _ = False |