[Haskell-beginners] xmpp server