2 files changed, 2 insertions(+), 2 deletions(-)

M VCard.hs
M test/VCardTest.hs

@@ 35,7 35,7 @@ emptyVCard = VCard Nothing Nothing []
 
 vcardRequest :: XMPP.JID -> XMPP.IQ
 vcardRequest jid = (XMPP.emptyIQ XMPP.IQGet) {
-	XMPP.iqTo = Just jid,
+	XMPP.iqTo = Just $ bareJid jid,
 	XMPP.iqPayload = Just $ XML.Element
 		(s"{urn:ietf:params:xml:ns:vcard-4.0}vcard") [] []
 }

@@ 14,7 14,7 @@ import TestInstances ()
 
 prop_vcardRequest :: XMPP.JID -> Bool
 prop_vcardRequest jid =
-	XMPP.iqTo req == Just jid &&
+	XMPP.iqTo req == Just (bareJid jid) &&
 	XMPP.iqPayload req == Just vcardEl
 	where
 	vcardEl = XML.Element (s"{urn:ietf:params:xml:ns:vcard-4.0}vcard") [] []