From d153c217b0eb3eb11ecfb28606e7b136578411a6 Mon Sep 17 00:00:00 2001
From: Philipp Balzarek <p.balzarek@googlemail.com>
Date: Fri, 23 Aug 2013 17:47:59 +0200
Subject: [PATCH] replace xpPrim with xpJid in ServiceDiscovery

---
 source/Network/Xmpp/Xep/ServiceDiscovery.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/source/Network/Xmpp/Xep/ServiceDiscovery.hs b/source/Network/Xmpp/Xep/ServiceDiscovery.hs
index 766ab1e..aa39057 100644
--- a/source/Network/Xmpp/Xep/ServiceDiscovery.hs
+++ b/source/Network/Xmpp/Xep/ServiceDiscovery.hs
@@ -80,7 +80,7 @@ xpQueryInfo = xpWrap (\(nd, (feats, ids)) -> QIR nd ids feats)
                      xpIdentities
                      )
 
--- | Query an entity for it's identity and features
+-- | Query an entity for its identity and features
 queryInfo :: Jid -- ^ Entity to query
           -> Maybe Text.Text -- ^ Node
           -> Session
@@ -138,7 +138,7 @@ xpItem = xpWrap (\(jid, name, node) -> Item jid name node)
                 (\(Item jid name node) -> (jid, name, node)) $
          xpElemAttrs (itemsN "item")
            (xp3Tuple
-              (xpAttr "jid" xpPrim)
+              (xpAttr "jid" xpJid)
               (xpAttrImplied "name" xpText)
               (xpAttrImplied "node" xpText))