Indicate that group chat is supported.

1 files changed, 1 insertions, 0 deletions

diff --git a/Presence/Presence.hs b/Presence/Presence.hs
index 0ae9653f..224d3282 100644
--- a/Presence/Presence.hs
+++ b/Presence/Presence.hs
@@ -169,6 +169,7 @@ presenceHooks state verbosity mclient mpeer = XMPPServerParameters
     , xmppClientInformSubscription  = clientInformSubscription state
     , xmppPeerInformSubscription    = peerInformSubscription state
     , xmppVerbosity                 = return verbosity
+    , xmppGroupChat                 = Map.singleton "chat" MUC
     , xmppClientBind                = mclient
     , xmppPeerBind                  = mpeer
     }