diff options
| author | Joe Crayne <joe@jerkface.net> | 2018-11-25 02:19:42 -0500 |
|---|---|---|
| committer | Joe Crayne <joe@jerkface.net> | 2018-12-16 14:08:26 -0500 |
| commit | dfcab14e4d593f6a51db3fa5cf61f0358dc0f280 (patch) | |
| tree | 890436b311db227ace6f5d5a8f4f461241e7bf66 /ToxToXMPP.hs | |
| parent | b9d58803bafb2ae283c866df156e5422f58d6278 (diff) | |
group chat invite message.
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" ] |