module Network.XMPP.XEP.MUC
(
mucJoin
, mucLeave
, mucJoinStanza
, mucLeaveStanza
) where
import Network.XMPP.Stanza
import Network.XMPP.Types
import Network.XMPP.Print
import Network.XMPP.JID
import Network.XMPP.Utils
mucJoin :: JID -> XmppStateT ()
mucJoin jid = do
outStanza $ mucJoinStanza jid
mucLeave :: JID -> XmppStateT ()
mucLeave jid = do
outStanza $ mucLeaveStanza jid
mucJoinStanza :: JID -> Stanza
mucJoinStanza jid =
Presence Nothing (Just jid) "123" Default Available "" Nothing
[ toContent $
itag "x" [ xmlns "http://jabber.org/protocol/muc" ]
]
mucLeaveStanza :: JID -> Stanza
mucLeaveStanza jid =
Presence Nothing (Just jid) "" Unavailable Available "" Nothing []