summaryrefslogtreecommitdiff
path: root/ToxToXMPP.hs
diff options
context:
space:
mode:
Diffstat (limited to 'ToxToXMPP.hs')
-rw-r--r--ToxToXMPP.hs5
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" ]