From 9e691f4f4848262807445cef14cafb5baeb10ca3 Mon Sep 17 00:00:00 2001 From: joe Date: Tue, 31 Oct 2017 00:09:17 -0400 Subject: hush some warnings. --- src/Network/Tox/Crypto/Transport.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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 , HasMessage(..) , HasMessageType(..) -- lenses - , userStatus, nick, statusMessage, typingStatus, message, action, groupChatID + , userStatus, nick, statusMessage, typingStatus, action, groupChatID , groupNumber, groupNumberToJoin, peerNumber, messageNumber , messageName, messageData, name, title, message, messageType -- constructor @@ -559,6 +559,7 @@ msgSizeParam MESSAGE_GROUPCHAT {-0x63-} = Nothing -- variable msgSizeParam LOSSY_GROUPCHAT {-0xC7-} = Nothing -- variable msgSizeParam _ = Nothing +isIndirectGrpChat :: MessageID -> Bool isIndirectGrpChat MESSAGE_GROUPCHAT = True isIndirectGrpChat LOSSY_GROUPCHAT = True isIndirectGrpChat _ = False -- cgit v1.2.3