Add groupname to xmpp <reason> field.

1 files changed, 6 insertions, 1 deletions

diff --git a/ToxToXMPP.hs b/ToxToXMPP.hs
index 65faff9d..4814553d 100644
--- a/ToxToXMPP.hs
+++ b/ToxToXMPP.hs
@@ -74,7 +74,9 @@ toxToXmpp laddr me theirhost = do
             xmppInstantMessage "jabber:server" im_from im_to
                 [ attr "style" "font-weight:bold; color:red" ]
                 ("INVITE(todo)" <> (T.pack $ show ginv))
-            xmppInvite "jabber:server"  me_h (fromJust im_from) (fromJust im_to) ginv
+            case invite ginv of
+                GroupInvite {} -> xmppInvite "jabber:server"  me_h (fromJust im_from) (fromJust im_to) ginv
+                _              -> return ()
 
         toxmsg -> do
             xmppInstantMessage "jabber:server" im_from im_to
@@ -145,6 +147,9 @@ xmppInvite namespace me them to inv =
         ,   EventBeginElement "{http://jabber.org/protocol/muc#user}x" []
         ,     EventBeginElement "{http://jabber.org/protocol/muc#user}invite"
                 [ attr "from" them ]
+        ,       EventBeginElement "{http://jabber.org/protocol/muc#user}reason" []
+        ,         EventContent (ContentText $ groupName $ invite inv)
+        ,       EventEndElement "{http://jabber.org/protocol/muc#user}reason"
         ,     EventEndElement "{http://jabber.org/protocol/muc#user}invite"
         ,   EventEndElement "{http://jabber.org/protocol/muc#user}x"
         , EventEndElement (ns "message")