diff options
Diffstat (limited to 'Assistant/XMPP/Buddies.hs')
| -rw-r--r-- | Assistant/XMPP/Buddies.hs | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/Assistant/XMPP/Buddies.hs b/Assistant/XMPP/Buddies.hs index d784f316d..087a34879 100644 --- a/Assistant/XMPP/Buddies.hs +++ b/Assistant/XMPP/Buddies.hs @@ -17,9 +17,6 @@ import qualified Data.Set as S import Data.Text (Text) import qualified Data.Text as T -genBuddyID :: JID -> BuddyID -genBuddyID j = BuddyID $ formatJID j - genKey :: JID -> BuddyKey genKey j = BuddyKey $ formatJID $ JID (jidNode j) (jidDomain j) Nothing @@ -29,9 +26,9 @@ 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 :: Buddy -> Maybe (Text, Bool, Bool, BuddyKey) buddySummary b = case clients of - ((Client j):_) -> Just (buddyName j, away, canpair, genBuddyID j) + ((Client j):_) -> Just (buddyName j, away, canpair, genKey j) [] -> Nothing where away = S.null (buddyPresent b) && S.null (buddyAssistants b) |