From 55d91d0f8cf212c1e299fb1c677ce115fbbf326f Mon Sep 17 00:00:00 2001 From: Anastasia Gornostaeva Date: Sat, 1 Jun 2013 23:22:42 +0400 Subject: [PATCH] Small fix --- src/XMPP.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/XMPP.ml b/src/XMPP.ml index 4e568e0..400a849 100644 --- a/src/XMPP.ml +++ b/src/XMPP.ml @@ -600,7 +600,7 @@ struct | IQError _err -> fail (Error "session") (* todo *)) let make_bind session_data session_handler = - make_iq_request session_data ~jid_to:(domain session_data.myjid) + make_iq_request session_data (IQSet (make_element (ns_xmpp_bind, "bind") [] [make_simple_cdata (ns_xmpp_bind, "resource") session_data.myjid.resource]))