diff options
Diffstat (limited to 'Assistant/XMPP/Buddies.hs')
| -rw-r--r-- | Assistant/XMPP/Buddies.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Assistant/XMPP/Buddies.hs b/Assistant/XMPP/Buddies.hs index 087a34879..77e506ee9 100644 --- a/Assistant/XMPP/Buddies.hs +++ b/Assistant/XMPP/Buddies.hs @@ -18,7 +18,7 @@ import Data.Text (Text) import qualified Data.Text as T genKey :: JID -> BuddyKey -genKey j = BuddyKey $ formatJID $ JID (jidNode j) (jidDomain j) Nothing +genKey j = BuddyKey $ formatJID $ baseJID j buddyName :: JID -> Text buddyName j = maybe (T.pack "") strNode (jidNode j) |