hatexmpp3-0: Network/Xmpp/Extras/VCardAvatar.hs

-- |
-- Stability   :  Ultra-Violence
-- Portability :  I'm too young to die
-- XEP-0153: vCard-Based Avatars

{-# LANGUAGE OverloadedStrings #-}

module Network.Xmpp.Extras.VCardAvatar
	( askvCard
	) where

import Data.XML.Types as DXT
import Network.Xmpp.Internal hiding (priority, status)

--askvCard :: Jid -> Session -> IO (Either XmppFailure IQResponse)
askvCard jid = sendIQ' Nothing (Just jid) Get Nothing (DXT.Element "vCard" [("xmlns", [DXT.ContentText "vcard-temp"])] []) []