diff --git a/core/XmppType.hs b/core/XmppType.hs --- a/core/XmppType.hs +++ b/core/XmppType.hs @@ -335,6 +335,6 @@ [("", "urn:ietf:params:xml:ns:xmpp-sasl")] [] [] fromQuery :: Query -> [XmlNode] -fromQuery (IqBind Nothing (BJid j)) = - [XmlNode (nullQ "jid") [] [] [XmlCharData $ fromJid j]] +fromQuery (IqBind Nothing (BJid j)) = [XmlNode (nullQ "bind") [] [] + [XmlNode (nullQ "jid") [] [] [XmlCharData $ fromJid j]]] fromQuery (IqBind r b) = maybe id ((:) . fromRequirement) r $ fromBind b diff --git a/xmpipe.cabal b/xmpipe.cabal --- a/xmpipe.cabal +++ b/xmpipe.cabal @@ -2,7 +2,7 @@ cabal-version: >= 1.8 name: xmpipe -version: 0.0.0.0 +version: 0.0.0.1 stability: Experimental author: Yoshikuni Jujo maintainer: Yoshikuni Jujo