From dfcab14e4d593f6a51db3fa5cf61f0358dc0f280 Mon Sep 17 00:00:00 2001
From: Joe Crayne <joe@jerkface.net>
Date: Sun, 25 Nov 2018 02:19:42 -0500
Subject: group chat invite message.

---
 ToxToXMPP.hs | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'ToxToXMPP.hs')

diff --git a/ToxToXMPP.hs b/ToxToXMPP.hs
index e9d5ba65..89022b2c 100644
--- a/ToxToXMPP.hs
+++ b/ToxToXMPP.hs
@@ -69,6 +69,11 @@ toxToXmpp laddr me theirhost = do
 
         toxmsg | msgID toxmsg == M PacketRequest -> return ()
 
+        Pkt INVITE_GROUPCHAT :=> Identity ginv ->
+            xmppInstantMessage "jabber:server" im_from im_to
+                [ attr "style" "font-weight:bold; color:red" ]
+                ("INVITE(todo)" <> (T.pack $ show ginv))
+
         toxmsg -> do
             xmppInstantMessage "jabber:server" im_from im_to
                 [ attr "style" "font-weight:bold; color:red" ]
-- 
cgit v1.2.3