From 6e1a32982c58512c164de9c02195aad048c31ee2 Mon Sep 17 00:00:00 2001 From: Philipp Balzarek Date: Sat, 5 May 2012 11:25:55 +0200 Subject: [PATCH] rename bindP to xpBind to conform to the naming convention --- src/Network/XMPP/Bind.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/Network/XMPP/Bind.hs b/src/Network/XMPP/Bind.hs index 99e741b..f9f032e 100644 --- a/src/Network/XMPP/Bind.hs +++ b/src/Network/XMPP/Bind.hs @@ -20,7 +20,7 @@ bindBody = pickleElem $ -- "" -- element, with a possible "[JID]" -- child. - bindP . xpOption $ xpElemNodes "resource" (xpContent xpId) + xpBind . xpOption $ xpElemNodes "resource" (xpContent xpId) -- Sends a (synchronous) IQ set request for a (`Just') given or server-generated -- resource and extract the JID from the non-error response. @@ -33,8 +33,8 @@ xmppBind rsrc = do where -- Extracts the character data in the `jid' element. jidP :: PU [Node] JID - jidP = bindP $ xpElemNodes "jid" (xpContent xpPrim) + jidP = xpBind $ xpElemNodes "jid" (xpContent xpPrim) -- A `bind' element pickler. -bindP :: PU [Node] b -> PU [Node] b -bindP c = xpElemNodes "{urn:ietf:params:xml:ns:xmpp-bind}bind" c \ No newline at end of file +xpBind :: PU [Node] b -> PU [Node] b +xpBind c = xpElemNodes "{urn:ietf:params:xml:ns:xmpp-bind}bind" c \ No newline at end of file