diff options
Diffstat (limited to 'ToxToXMPP.hs')
-rw-r--r-- | ToxToXMPP.hs | 5 |
1 files changed, 5 insertions, 0 deletions
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 | |||
69 | 69 | ||
70 | toxmsg | msgID toxmsg == M PacketRequest -> return () | 70 | toxmsg | msgID toxmsg == M PacketRequest -> return () |
71 | 71 | ||
72 | Pkt INVITE_GROUPCHAT :=> Identity ginv -> | ||
73 | xmppInstantMessage "jabber:server" im_from im_to | ||
74 | [ attr "style" "font-weight:bold; color:red" ] | ||
75 | ("INVITE(todo)" <> (T.pack $ show ginv)) | ||
76 | |||
72 | toxmsg -> do | 77 | toxmsg -> do |
73 | xmppInstantMessage "jabber:server" im_from im_to | 78 | xmppInstantMessage "jabber:server" im_from im_to |
74 | [ attr "style" "font-weight:bold; color:red" ] | 79 | [ attr "style" "font-weight:bold; color:red" ] |