diff options
Diffstat (limited to 'Assistant/XMPP/Buddies.hs')
| -rw-r--r-- | Assistant/XMPP/Buddies.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/Assistant/XMPP/Buddies.hs b/Assistant/XMPP/Buddies.hs index 217870dc6..d784f316d 100644 --- a/Assistant/XMPP/Buddies.hs +++ b/Assistant/XMPP/Buddies.hs @@ -23,15 +23,17 @@ genBuddyID j = BuddyID $ formatJID j genKey :: JID -> BuddyKey genKey j = BuddyKey $ formatJID $ JID (jidNode j) (jidDomain j) Nothing +buddyName :: JID -> Text +buddyName j = maybe (T.pack "") strNode (jidNode j) + {- Summary of info about a buddy. - - If the buddy has no clients at all anymore, returns Nothing. -} buddySummary :: Buddy -> Maybe (Text, Bool, Bool, BuddyID) buddySummary b = case clients of - ((Client j):_) -> Just (buddyname j, away, canpair, genBuddyID j) + ((Client j):_) -> Just (buddyName j, away, canpair, genBuddyID j) [] -> Nothing where - buddyname j = maybe (T.pack "") strNode (jidNode j) away = S.null (buddyPresent b) && S.null (buddyAssistants b) canpair = not $ S.null (buddyAssistants b) clients = S.toList $ buddyPresent b `S.union` buddyAway b `S.union` buddyAssistants b |