XaMPPloo is a simple XMPP implementation in Haskell