#452 Xmpp.hs: Xmpp型をXmlPusherのインスタンスにした(ほぼコピー)