diff options
Diffstat (limited to 'ToxToXMPP.hs')
| -rw-r--r-- | ToxToXMPP.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/ToxToXMPP.hs b/ToxToXMPP.hs index fdd088ac..83531690 100644 --- a/ToxToXMPP.hs +++ b/ToxToXMPP.hs | |||
| @@ -389,8 +389,7 @@ checkSoliciting :: PresenceState -> PublicKey -> PublicKey -> Contact -> IO [NoS | |||
| 389 | checkSoliciting presence me them contact = do | 389 | checkSoliciting presence me them contact = do |
| 390 | let theirhost = T.pack $ show (key2id them) ++ ".tox" | 390 | let theirhost = T.pack $ show (key2id them) ++ ".tox" |
| 391 | myhost = T.pack $ show (key2id me) ++ ".tox" | 391 | myhost = T.pack $ show (key2id me) ++ ".tox" |
| 392 | xs <- getBuddiesAndSolicited presence $ \h -> do | 392 | xs <- getBuddiesAndSolicited presence myhost $ \h -> do |
| 393 | -- TODO: /h/ matches hostname? | ||
| 394 | return $ T.toLower h == T.toLower theirhost | 393 | return $ T.toLower h == T.toLower theirhost |
| 395 | return $ do | 394 | return $ do |
| 396 | (is_buddy,their_u,my_uid,xmpp_client_profile) <- xs | 395 | (is_buddy,their_u,my_uid,xmpp_client_profile) <- xs |